tcustomapplication

type tcustomapplication = class(tmsecomponent)

public

  constructor create(); override;

  destructor destroy; override;

  procedure beforedestruction; override;

  procedure initialize;

  procedure deinitialize;

  procedure beginhighrestimer;

  procedure endhighrestimer;

  property highrestimer: Boolean; [r]

  function procid;

  function getserial;

  function createdatamodule();

  procedure run;

  function running;

  procedure processmessages; virtual;

  function idle; virtual;

  function modallevel; virtual; abstract;

  property applicationname: msestring; [rw]

  procedure postevent();

  function checkoverload();

  procedure handleexception();

  procedure showexception(); virtual; abstract;

  procedure errormessage(); virtual; abstract;

  procedure registeronterminated();

  procedure unregisteronterminated();

  procedure registeronterminate();

  procedure unregisteronterminate();

  procedure registeronidle();

  procedure unregisteronidle();

  procedure registerapplicationeventhandler();

  procedure unregisterapplicationeventhandler();

  procedure settimer(); virtual;

  function islockedthread;

  function islockedmainthread;

  function trylock;

  function lock;

  function unlock;

  function unlockall; virtual;

  procedure relockall(); virtual;

  procedure lockifnotmainthread;

  procedure unlockifnotmainthread;

  function synchronize();

  procedure queueasynccall();

  procedure releaseobject();

  function ismainthread;

  function islockthread;

  procedure waitforthread();

  function semwait();

  procedure wakeupmainthread;

  procedure langchanged; virtual;

  procedure beginwait(); virtual;

  procedure endwait; virtual;

  function waitescaped; virtual;

  procedure idlesleep();

  function candefocus(); virtual;

  property terminated: Boolean; [rw]

  property mainthread: threadty; [r]

  property lockthread: threadty; [r]

  property lockcount: Integer; [r]

  property exceptioncount: Integer; [r]

  property options: applicationoptionsty; [rw]

  property onexception: exceptioneventty; [rw]

end;

tcustomapplication

tmsecomponent,ievent,iificommand,iificlient

tcomponent

TObject