With TEdit.Create(Self) do //oluşan nesnenin olayları..

[poke53280]

Program çalışırken oluşturdugumuz nesnenin olaylarını nasıl işleyecez.

Kod: Tümünü seç

var
edno:integer;
begin
inc(edno);
With TEdit.Create(Self) do 
  begin
  top:= 100;
  left:= 20;
  name:= 'Edit'+inttostr(edno);
  end;

////olarak oluşan nesnenin mesela mousedown olayını nasıl yakalarız.

[gkimirti]

formun private bolumunde

Kod: Tümünü seç

procedure TFrmMain.MyEditMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

diye bir procedure tanımla

Kod: Tümünü seç

With TEdit.Create(Self) do
begin
  top:= 100;
  left:= 20;
  name:= 'Edit'+inttostr(edno);
  OnMouseDown:=MyEditMouseDown;
end;

seklinde olayı yakalayabilirsin

[highmemo]

Selam..

Her event tipine uygun procedure tanımlayıp kullanabilirsin..

Örnek :

Kod: Tümünü seç

 type TForm ......
 private
    procedure dynMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
(*=======================================*)
procedure TForm1.dynMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  If (Sender is TEdit) then ShowMessage( TEdit(Sender).Text );
end;
(*=======================================*)
 with TEdit.Create(self) do
  begin
    Name := 'Edit'+IntToStr(1);
    Parent := Self;
    Left :=100;
    Top := 100;
    OnMouseDown := dynMouseDown;
  end;

mesala onClick eventları TNotifyEvent tipindedir ( type TNotifyEvent = procedure (Sender: TObject) of object;)

procedure dynClick(Sender: TObject);

sanırım çözersin artık... kolay gele

[poke53280]

Güzel cevaplar.

Çok teşekkür ederim.