Closing my application

MagnusJansson · **Joined:** Tue Aug 28, 2007 10:08 pm **Posts:** 5

Hi.

Is there an easy way to make my application close itself, like at the pen down on a certain area of the main form, the application closes. How do I do that?

I tried to manipulate the event loop with a status variable, but that caused memory leaks that I dont know how to fix.

Thanks

Magnus

MagnusJansson · **Joined:** Tue Aug 28, 2007 10:08 pm **Posts:** 5

Sorry, I am new to this. I found the answer myself (the Quit function). Sorry again

EauDeVie · **Joined:** Thu Dec 27, 2007 11:47 am **Posts:** 6

This will help:

Code:

procedure CloseApp(msg : pchar);
var
  evt: EventType;
begin
  if StrLen(msg) > 1 then
    ShowMessage(msg);

  MemSet(@evt, SizeOf(evt), 0);
  evt.eType := appStopEvent;
  EvtAddEventToQueue(@evt); 
end;

VoiceIt Technologies, LLC

Closing my application

Who is online