Események lefutását jelző események készítése

A megoldás trükkje abban rejlik, hogy a TForm-nál létrehozzuk annak az eseménynek a kezelőjét, melyhez az OnAfter... kezdetű eseményt szeretnénk használni. Például használjuk fel az OnShow-t. Amikor ez meghívásra kerül, akkor küldünk a Form-nak egy újabb üzenetet, ehhez viszont a PostMessage függvényt használjuk. Ez abban különbözik a SendMessage-től, hogy nem várja meg az üzenet feldolgozását, hanem csak bekerül a Form üzenetkezelési sorába és rögtön a PostMessage után folytatódik a programunk. Így lefut a OnShow-hoz írt kódunk, illetve az OnShow-t kiváltó eljárásnak a kódja is. A Form csak ezután dolgozza fel az újonnan beérkezett üzeneteket, melyek között ott lesz a mi általunk küldött is. Most már csak le kell kezelnünk a magunknak küldött üzenetet, melyhez létrehozunk egy újabb eseménykezelőt. Amikor ez meghívásra kerül, akkor biztosak lehetünk benne, hogy az OnShow és minden hozzá tartozó kód már lefutott.

Nézzük mindezt a gyakorlatban:

A saját üzenethez létrehozunk egy új konstanst. Ezzel azonosítjuk saját üzenetünket.

const
  WM_AFTERSHOW = WM_USER + 1000;

Ehhez az üzenethez létrehozunk egy saját üzenetkezelő eljárást.

  TForm1 = class(TForm)
  private
    procedure DoAfterShow(var Msg: TMessage); message WM_AFTERSHOW;

Ezt követően az OnShow eseményhez is létrehozzuk annak kezelőjét. Ezen belül kell használnunk a PostMessage függvényt, mellyel küldünk saját Form-unknak egy WM_AFTERSHOW üzenetet.

procedure TForm1.FormShow(Sender: TObject);
begin
  ListBox1.Items.Add('Show');
  PostMessage(Handle, WM_AFTERSHOW, 0, 0);
end;

Amikor a Form megkapja ezt az üzenetet, akkor fut a DoAfterShow eljárás, ahol tetszőleges kódot futtathatunk.

procedure TForm1.DoAfterShow(var Msg: TMessage);
begin
  ListBox1.Items.Add('AfterShow');
end;