Ü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.

[Jack23]

Also ist das genau der Code von Sharky?

Wie mache ich das dann mit IF?

Delphi-Quellcode:

if TButton.Caption = 'test' then

[mkinzler]

Zitat:

Zitat von Jack23

Also ist das genau der Code von Sharky?

Ja.

Zitat:

Wie mache ich das dann mit IF?

Delphi-Quellcode:

if (Sender as TButton).Caption = 'test' then

[DeddyH]

Delphi-Quellcode:

Query.SQL.Text := 'SELECT * FROM abc WHERE test like :caption ORDER BY test asc';
Query.ParamByName('caption').AsString := (Sender as TButton).Caption + '%';

[Sharky]

Hai Jack23,

Zitat:

Zitat von Jack23

...

Delphi-Quellcode:

if TButton.Caption = 'test' then

ich würde versuchen die "Entscheidung" nicht von der Caption abhängig zumachen. Du kannst jedem Button einen eindeutigen Wert in der Eigenschaft Tag zuweisen und dann diese auswerten.

Delphi-Quellcode:

procedure TDemo_Form.FormCreate(Sender: TObject);
begin
  Button1.Tag := 1;
  Button2.Tag := 2;
  Button3.Tag := 3;
end;

procedure TDemo_Form.AllButtonOnClick(Sender: TObject);
var
  btn_Tag : Integer;
  btn_Caption : String;
begin
  btn_Tag := (Sender as TButton).Tag;
  btn_Caption := (Sender as TButton).Caption;
  case btn_Tag of
    1 : Mache das;
    2 : oder das;
    3 : oder das;
  end;
end;

[Jack23]

Ok danke euch schon mal. Nur noch eine Frage ich mache das ja in der einen procedur. Nun möchte ich das aber einer anderen nutzen. Gibt es da eine Möglichkeit?

Also die IF Abfrage möchte ich in einer anderen nutzen. Aber mit dem Wert.

@ Deddy

Ich bnutze eine ADOQuery. Das gibt es doch kein ParamByName oder?


Noch mal edit:

Ich muss das in einer (Column: TColumn) procedure nutzen. Gibt es da unterschiede?

[mkinzler]

Den Tag kannst du natürlich auch im OI setzen.

[Sharky]

Zitat:

Zitat von Jack23

...Also die IF Abfrage möchte ich in einer anderen nutzen....

Dann übergebe deiner Procedure den Wert doch einfach als Parameter.

[DeddyH]

Diese ADOQueries machen mich noch wahnsinnig ;). Da mach es lieber so:

Delphi-Quellcode:

Query.SQL.Text := 'SELECT * FROM abc WHERE test like ' + QuotedStr((Sender as TButton).Caption + '%') + ' ORDER BY test asc';

[mkinzler]

Oder noch besser mit (SQL-)Parametern:

SQL-Code:

Query.SQL.Text := 'SELECT * FROM abc WHERE test like :wert ORDER BY test asc';
...
Query.Parameters.ParamByName('wert').Value := (Sender as TButton).Caption + '%';

[Edit: Überflüssigen Apostroph entfernt. Danke Deddy]

[DeddyH]

Bei ADOQueries wird einfach der Value gesetzt (keine Castereien mit AsString)? Hab mich da letztens mit rumgeschlagen und bin dann aus Verzweiflung wieder zum QuotedStr zurückgekehrt.

P.S.: Du hast ein Apostroph zu viel drin ;)

[Jack23]

Ok soweit alles klar. Wie übergebe ich das "Sender"?

[mkinzler]

Zitat:

Ok soweit alles klar. Wie übergebe ich das "Sender"?

Das wird automatisch übergeben.

[Jack23]

ich meine von einer procedure in die andere.

[mkinzler]

Delphi-Quellcode:

Procedure dieZweite( Sender: TObject,; ...);

...

dieZweite ( Sender, ...);

[Jack23]

Sorry verstehe ich nicht ganz.

Das ist meine erste Procedure oder meine zweite?

Delphi-Quellcode:

Procedure dieZweite( Sender: TObject,; ...);

...

dieZweite ( Sender, ...);

Ich steige da nicht ganz durch.

Oder kann ich auch dieses nehmen?

btn_Caption

[mkinzler]

Natürlich, aber noch besser den Tag:

Delphi-Quellcode:

Procedure dieZweite( Tag: Integer; ...);

...

dieZweite ( btn_Tag, ...);

[Jack23]

Ok Danke! Frage ist erledigt.