Überprüfen ob Button gedrückt wurde?

[Jack23]

Hallo ich möchte das so haben:

Delphi-Quellcode:

if Button1 gedrückt then mache weiter mit....

Ich hoffe das ist verständlich.

[s-off]

Jawohl, Sir.

Sie haben mehrere Möglichkeiten.

• Sie reagieren direkt in dem Event, das ausgelöst wird, sobald der Button gedrückt wird (OnClick)
• Sie merken sich in einer Variablen, dass der Button gedrückt worden ist, sobald er gedrückt worden ist. Dafür könnten Sie auch die Tag-Eigenschaft des Buttons missbrauchen.

Hätten Sie Ihre Wünsche etwas weiter ausgeführt, so könnte man Ihnen wahrscheinlich die Ideallösung präsentieren.

Bitte, wegtreten zu dürfen.

[mkinzler]

Der Weg über dem Events (callback) ist imho zu bevorzugen.

[Peeters]

Zieh ein Button aufs Formular und mach ein Doppelklick darauf. Dann hast du dein OnClick Ereigniss

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

end;

[Jack23]

Ok dann werden ich mein Problem etwas weiter beschreiben:

Der Button sieht so aus:

procedure TForm8.button(Sender: TObject);
begin
.....
end;

Ist glaube ich logisch.

So nun habe ich 50 davon.

Dann möchte ich mit einer IF Abfrage prüfen welche gedrückt wurde.

Und dann soll die Caption von dem Button in eine SQL Abfrage untergebracht werden.

Delphi-Quellcode:

SELECT * FROM abc WHERE test like "Caption des gedrückten Buttons%" ORDER BY test asc');

Wie ist das am besten möglich?

[marabu]

Da würde ich dir eher eine CheckListBox für die Konfiguration deiner Abfrage und einen Button als Auslöser empfehlen.

Grüße vom marabu

[Sharky]

Hai Jack23,

um deine Frage zu beantworten:

Weise allen Buttons das selbe OnClick Ereigniss zu und arbeite dann mit dem Sender.

Delphi-Quellcode:

procedure TDemo_Form.AllButtonClick(Sender: TObject);
var
  btn_Caption: string;
begin
  btn_Caption := (Sender as TButton).Caption;
end;

Ansonsten würde ich aber wohl auch eher mit dem Vorschlag von marabu arbeiten.

[mkinzler]

Man kann auch für mehrere Buttons die selbe Eventmethode verwenden und mit Sender arbeiten

[Jack23]

Das Problem ist aber das jeder Button eine eigene Procedure hat.

Der eine hat TForm8.abc ein anderer wieder TForm8.dca

Die kann ich doch nicht gleichmachen.

[mkinzler]

Doch indem du anhand des Senders entscheidest, welcher Code ausgeführt werden soll.