TObject

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Kako bih mogao da kao argument neke procedure koristim neku kontejner komponentu,koju bi kasnije u telu funkcije mogao da koristim za Parent svojstvo?Konkretno,procedura bi trebala da postavlja tastere na razlicitim kontejner kontrolama(TPanel,TForm...).Zamisao je da se napravi samo jedna procedura,ali da se kroz odredjen argument ubacuje i buduca kontejner kontrola na kojoj ce tasteri biti iscrtani.
Zahvalan

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Fora je u Typecastu. Mozes uvek da prosledis kao parametar TObject.

primer

Procedure UradiNesto (sender:TObject);virtual;
begin

end;


xx:=TImage;
UradiNesto(xx);

E sada, fora je da unutar procedure koju ces da OVERRIDE-ujes uradis

procedure UradiNesto(sender:TObject);override;
begin
TImage(sender).canvas... bla bla
end;

• 0Niko još nije pohvalio poruku.
  Registruj se da bi pohvalio/la poruku!

Hvala beli0135.Probacu danas da odradim