Auslöser?

[fLaSh11]

Hallo allerseits,

mal wieder ne Frage:
Ich habe sagen wir 10 Buttons auf einer Form. Allen ist bei OnClick das Ereignis "Button1OnClick" zugewiesen. Wie kann ich im nachhinein (wenn z.B. Btn7 gedrückt wurde) herausfinden, wer der Auslöser was??? ( also Btn7) :gruebel:

Ich denke, das wisst ihr ausm Stehgreif :mrgreen: ... thx

[arbu man]

Delphi-Quellcode:

sender.name

da ist der name des buttons drin

[Ultimator]

Im OnClick:

Delphi-Quellcode:

ShowMessage((Sender as TButton).Name);

[Thorben77]

Zitat:

Zitat von arbu man

Delphi-Quellcode:

sender.name

da ist der name des buttons drin

Nope, "Sender" ist nur ein "normales" Objekt und das hat keine Eigenschaft "Name". Die Eigenschaft gibt es erst ab TComponent. Also entweder 'ne Typumwandlung zum TButton oder auch nur TComponent:

Delphi-Quellcode:

procedure TFormXYZ.ButtonXYZClick(Sender: TObject);
begin
  // nicht empfehlenswert, mit "harter" Typumwandlung; da kann sonstwas passieren:
  ShowMessage(TButton(Sender).Name);
  ShowMessage(TComponent(Sender).Name);

  // die etwas "sicherere" Variante; wenn der Sender mal kein Button bzw. keine Komponente ist, gibt's 'n EInvalidCast-Fehler
  ShowMessage((Sender as TButton).Name);
  ShowMessage((Sender as TComponent).Name);

  // mit "dynamischer Typüberprüfung"; wenn der Sender nicht den richtigen Typ hat, passiert nix:
  if Sender is TButton then
    ShowMessage((Sender as TButton).Name);
  if Sender is TComponent then
    ShowMessage((Sender as TComponent).Name);

  // oder auch noch:
  if Sender is TButton then // oder TComponent
    ShowMessage(TButton(Sender).Name);
end;

Das man da soviel zu schreiben kann :mrgreen: .

MfG

[thkerkmann]

Hi,

und wie wär es ganz einfach mit

Delphi-Quellcode:

  if Sender = btn7 then

Dann braucht es keinen Stringvergleich, keine Typumwandlung....

[Sharky]

Hai fLaSh11,

"Auslöser" ist ein ziemlich nichtssagender Titel für einen Thread.
Damit andere User, welche womöglich die selbe Frage haben eine Antwort über die Suchfunktion finden würde ich dich doch bitten deinem Thread einen etwas aussagefähigeren Titel zu geben.

Danke. :-D

[fLaSh11]

also
1. danke, klappt
2.

Zitat:

Zitat von Sharky

..bitten deinem Thread einen etwas aussagefähigeren Titel zu geben

ich hab keinen parat... schlag doch mal einen vor.