Stavi u OnPaint glavne forme sledeci kod:
Code:
procedure TMojaForma.FormPaint(Sender: TObject);
begin
OnPaint := NIL; // Sa ovim si siguran da ce se
// ovaj poziv desiti samo jednom
.... // Ovde stavis kod koji zelis da se izvrsava kada se forma prikaze
end;
OnPaint se poziva svaki put kada je potrebno da se forma iscrta
sto znaci da je forma stigla do tacke kada se prikazuje.
Ovo se desava posle OnShow event-a. Cim se prvi put pozove OnPaint
setujemo pokazivac OnPaint procedure na NIL sto znaci da
forma nece sledeci put uci u ovu proceduru.
Prednost ove metode je sto si siguran da je forma
prikazana kada se poziva pocetak nekog zadatka.
Sto se tice OnCreate koji je
goblin pominjao, sve
komponente kojima je forma vlasnik su kreirane u
trenutku pozivanja OnCreate tako da mozes da ih
koristis, samo moras da pazis da ne zahtevas promene
koje su vezane za interfejs (fokus itd.). To ponasanje
je sigurno za sve komponente koje stizu uz delphi.
[code][code][code]