Anzeigen des sender : objektes

[emsländer]

Moin,

um eine Testreihe machen zu können, benötige ich eine Möglichkeit den Namen des Sender : Objektes anzeigen zu lassen.

Ich stelle mir das in etwa so vor:

Delphi-Quellcode:

procedure TAktenManager.tab_mainChange(Sender: TObject);
begin

showmessage(objekttostr(sender));

end;

Wer hat nen Tipp?


Danke

Gruss

EL

[marabu]

Hi.

Delphi-Quellcode:

with Sender as TComponent do
  ShowMessage(Name);

Grüße vom marabu

[emsländer]

Zitat von marabu:

Hi.

Delphi-Quellcode:

with Sender as TComponent do
  ShowMessage(Name);

Grüße vom marabu

Danke, war ein Supertipp!

was ich mir jetzt draus gemacht hab:

Delphi-Quellcode:

with Sender as TPagecontrol do 
  ShowMessage(activepage.Name);

Gruss

EL

[turboPASCAL]

oder:

Delphi-Quellcode:

procedure TAktenManager.tab_mainChange(Sender: TObject);
begin

  Showmessage( TComponent(Sender).Name );

end;

[emsländer]

Zitat von turboPASCAL:

oder:

Delphi-Quellcode:

procedure TAktenManager.tab_mainChange(Sender: TObject);
begin

  Showmessage( TComponent(Sender).Name );

end;

Jein - hätte in meinem Fall nicht wirklich geholfen, weil mir das immer den Namen des PageControls angezeigt hat, und nicht das des Sendenden Objektes.


Gruss

EL

[turboPASCAL]

Na, dann mach es halt so: Showmessage( TPageControl(Sender).ActivePage.Name );

[emsländer]

Zitat von turboPASCAL:

Na, dann mach es halt so: Showmessage( TPageControl(Sender).ActivePage.Name );

ok - auch ne Methode

ich mach dann daraus:

 if TPageControl(Sender).ActivePage.Name = '.....' then Gruss

EL

[bigg]

moin,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Sender.ClassName);
end;

[emsländer]

Zitat von bigg:

moin,

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Sender.ClassName);
end;

das hat wieder den Effekt, das in meinem Fall, unabhängig davon, welches Tab angeklickt wird, immer "TPageControl" angezeigt wird.



Gruss

EL