[Delphi] jak pridat proceduru...

ucim se Delphi na patecni ZK a ted sem v knize narazil na celkem neprekonatelny problem, budu citovat sam sebe...

Citace:

---

Miralis (11:16 AM) :
ahoj davide,

prolejzam ted programovaci sekci na oc foru pze mam v patek zkousku z delphi a zjistil sem, ze ty to dokonce ucis, tak trebas mi poradis :-)

ucim se to z knizky co sem si kdysi sehnal, jmenuje se to Delphi - zaciname programovat, napsal to jakysi pan Jan Posta.... sem ted za pulkou a narazil sem na problem s kterym se nejak nemuzu poprat.

v jednom priklade (7.13 kdybys to nahodou mel doma :P) se ma malovat na canvas...
Miralis (11:19 AM) :
na canvas komponenty picture pr stisknutem tlacitku, hned mi bylo jasne, ze to bude nejaka procedura OnMouseDown nebo neco takoveho.... v knize je to TForm1.Image1MouseDown(...) a hromada parametru.... si rikam ze normalni clovek si to nemuze pamatovat tak sem zacal resit, jak pridam proceduru MouseDown kdyz vlastne na formalari na to nemuzu klinout.... ve skole me naucili delat reakce a udalosti tak, ze si do formulare dam nejakou komponentu
Miralis (11:19 AM) :
a na ni 2x click a pak uz si jen napisu kod do unity, ze.... easy... ale ted fakt nemuzu prijit na to jak pridat proceduru rucne....

---

Nevim jestli jsem přesně pochopil o co jde...

1. možnost jak jsem to pochopil
událost přidáš že si vybereš komponentu v object treeview, v object inspectoru dáš záložku events a tam dvakrát klikneš na požadovanou událost

2.možnost
uděláš si vlastní třídu, kterou rozšíříš o požadovanou událost winapi, takže třaba:

Kód:

---

type
TXimage = class(TImage)
  protected
    procedure WMClick(var Msg: TMessage); message WM_LBUTTONDOWN        ;
  end;

---

pak definuješ tu událost:

Kód:

---

procedure TXimage.WmClick(var Msg: TMessage);
begin
co se má stát, všechno je v proměnný Msg
end;

---

a vytvořit někde instanci toho objektu, třeba nějak takhle:

Kód:

---

with Tximage.Create(self) do
  begin
    autosize:=true;
    Top    := 0;
    Left  := 0;
    Parent := self;
    Picture.LoadFromFile('c:\\obrazek.bmp');
end;

---

diky diky bivoji, nakonec mi kolega v praci poradil moznost cislo jedna... kdo by to byl rekl, ze se na to da taky klikat, ja myslel ze se jen vybira z roletky... ^^