Kako do parent window

[ sojic @ 24.06.2004. 13:57 ] @

U aplikaciji koju radim ne koristim standardne windowsove MessageDlg(...., mtError...) mtInformation i sl nego imam moje.

Kako da onShow neki ovakav Dlg parent formu, t.e. formu koja ga poziva postavi alphablend=200, na primer.

Znaci pitanje je kako da u neku forme doznam iz koje forme je pozvana?

[ bancika @ 25.06.2004. 00:11 ] @

u funkciju koju koristis za poziv stavi parametar Sender: TObject
ako koristis Show onda napravi novu

Code:

procedure Show1(Sender: TObject);
begin
  Show;
  with Sender as TForm do
     .....
end;

valjda to pomaze :)