ButtonKlick ermitteln und wiedergeben

[VT-DA]

Hi,

Ich versuche verzweifelt eine Funktion zu erstellen die herausfindet ob ein button geklickt wurde.
Dabei kann ich aber wie sonst keine procedure nehmen weil ich mehrere Buttons habe.
Hier mal meine Funktion an der ich werkelte:

Delphi-Quellcode:

function ButtonClick(Obj: TButton): Integer; stdcall;
var i: Integer;
begin
  for i := Low(ButtonArray) to High(ButtonArray) do
  begin
    if Obj = ButtonArray[i].BHandel then
    begin
      if ButtonArray[i].BHandel.OnClick then
        result := 1
      else
        result := 0;
    end;
  end;
end;

Hier jetzt bei der Funktion sieht man das die Funktion durch eine DLL aufgerufen wird.
ButtonArray ist außerdem ein Dynamisches array wo die Handels gespeichert werden.

Doch zu meinem Problem. In der zeile "if ButtonArray[i].BHandel.OnClick then" sagt er mir das Parameter fehlen. Ich schetze mal das dass Fensterhandel fehlt. Doch ich habe bis jetzt keine möglichkeit gefunden wie ich das Fensterhandel übergeben soll.

Mfg

[VT-DA]

Hi,

Hat niemand ne Idee?

Mfg

[RavenIV]

Zitat von VT-DA:

Doch zu meinem Problem. In der zeile "if ButtonArray[i].BHandel.OnClick then" sagt er mir das Parameter fehlen. Ich schetze mal das dass Fensterhandel fehlt. Doch ich habe bis jetzt keine möglichkeit gefunden wie ich das Fensterhandel übergeben soll.

er will keinen handle haben, sondern einen Sender.
irgendwer muss das onClick-Event ja senden...

ausserdem hat ein TButton die Eigenschaft "Down", vielleicht kannst du diese anstelle von OnClick verwenden.

[VT-DA]

Hi,

Ahh. Okay. Danke. Aber eine Frage hätte ich da noch.
Wie mache ich denn überhaupt einen "Sender"?

Mfg

[RavenIV]

Zitat von VT-DA:

Hi,

Ahh. Okay. Danke. Aber eine Frage hätte ich da noch.
Wie mache ich denn überhaupt einen "Sender"?

Mfg

in deinem Falle kannst du als Sender deine Variable "Obj" angeben, da dies ja schon ein TButton ist.

[VT-DA]

Hallo,

Sorry aber ich weiß immer noch nciht wie ich das anstellen soll.
Die variable Obj ist ja nur zum überprüfen da.


Mfg

[tigerman33]

Hi,

Indem du OnClick aufrufst, überprüfst du nicht, ob der Button geklickt wurde. Stattdessen rufst du den Eventhandler für das Klickereignis des Buttons auf. Auf deutsch: OnClick checkt nicht, ob der Button geklickt wurde, sondern befiehlt ihm, sich so zu benehmen als sei das der Fall. Dem Ereignis OnClick gehört per Deklaration type TNotifyEvent = procedure(Sender: TObject) of object; der Parameter Sender an. Da steht dann drin, wer das Ereignis ausgelöst hat.

Eine Möglichkeit für dich wäre vielleicht, die Klick-Botschaft des Windows-Kernels abzufangen. Das ist aber (glaub ich) viel Aufwand und wohl auch ein bisschen Overkill. Vielleicht jemand noch ne bessere Idee?

[Khabarakh]

Wie definierst du überhaupt "wurde geklickt"? Ist die linke Mautaste genau zu dieser Zeit gedrückt oder soll es einfach der zuletzt gedrückte Button o.Ä. sein?

[matze.de]

Also du kannst entweder die WndProc deines Progs überschreiben, das geht dann so:

Delphi-Quellcode:

type
  TForm1 = Class(TForm)
    Button1: TButton;
  Private
    { Private-Deklarationen }
  Public
    { Public-Deklarationen }
    Procedure WndProc(Var Msg: TMessage); Override;
  end;
[...]
implementation
[...]
Procedure TForm1.WndProc(Var Msg: TMessage);
Begin
    If Msg.Msg = WM_COMMAND Then
    Begin
        If Msg.WParamHi = BN_CLICKED Then
        Begin
            If Msg.LParam = Button1.Handle Then
            Begin
                ShowMessage('Button1 wurde gedrückt.');
            End;
        End;
    End;
    Inherited;
End;

Oder du fängst nur die Message WM_COMMAND ab:

Delphi-Quellcode:

type
  TForm1 = Class(TForm)
    Button1: TButton;
  Private
    { Private-Deklarationen }
  Public
    { Public-Deklarationen }
    Procedure OnCommand(Var Msg: TMessage);Message WM_COMMAND;
  end;
[...]
implementation
[...]
Procedure TForm1.OnCommand(Var Msg: TMessage);
Begin
  If Msg.WParamHi = BN_CLICKED Then
  Begin
      If Msg.LParam = Button1.Handle Then
      Begin
        ShowMessage('Button1 wurde gedrückt.');
      End;
  End;
End;

mfg matze

//Edit: Oder du machst es mit nem OnClick

[Khabarakh]

VT-DA will aber den Status des Buttons abfragen. Und da frage ich mich eben, wie der Status des "Geklicktseins" definiert ist .