Fang museklik

prøv med mousedown og keypreview til true

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
  showmessage('Click');
end;


og
keypreview := true;

ok det virker ikke. Prøv at gå til component pallete -> Additional-> ApplicationEvents

vælg OnMessage event.

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if Msg.message = WM_LBUTTONUP then
  showmessage('Click');
end;

men den fanger ALLE click. Det giver et problem med den message box som er kommet frem....

men det kunne simpelt fixes med

if getactivewindow = handle then
  if Msg.message = WM_LBUTTONUP then
      showmessage('Click');

mange tak dkn...det virker perfekt, næste prblem er dog at jeg skal vide hvilken component der er trykket på...er det noget du har en god ide til.

Det er fordi jeg skal finde ud af præscis hvilken knap af mange der er trykket på og kunne trække nogle opæysniger ud fra den og der skal være uden at knappen "finder ud af" at den bliver "overvåget", så jeg kan ikke sætte knappernes onclick event til noget. Håber du forstår.

ShowMessage( TComponent(Sender).Name );

Stoney

stoney--> Men problemet er jo at jeg ikke har en sender.

...næste prblem er dog at jeg skal vide hvilken component der er trykket på...er det noget du har en god ide til.

Er du helt sikker på du ikke har en sender ?

Stoney

jeg fanger jo klikket med :

procedure TfrmProduktionsplan.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
if getactivewindow = handle then
  if Msg.message = WM_LBUTTONUP then
  begin
    showmessage('kost');
  end;
end;

men kan man ud fra msg.hwnd finde ud af hvilken knap der er trykket på og behandle den som en TButton og kalde nogle properties på den måde..

du kan få dens handle vedhjælp af:

      GetCursorPos(Point);
      handle := WindowFromPoint(Point);

men ved sku ikke lige hvordan du vil sammenligne den handle med dine components.

det her er bæ kode!! Hvis du har et sart hjerte skal du stoppe med at læse nu!!

Men hvis der er en nemmere løsning som jeg ikke kan se ligenu så kom endelig med den :)

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
var
  Point: TPoint;
  i: integer;
  whandle :Thandle;
  buf      : array[0..255] of Char;
begin
  if getactivewindow = handle then
    if Msg.message = WM_LBUTTONUP then
    begin
      GetCursorPos(Point);
      whandle := WindowFromPoint(Point);

      GetClassName(whandle,@buf[0],sizeof(buf));

      for I := 0 to ComponentCount - 1 do
        if strpas(buf) = Components[I].ClassName then
          if Components[I].ClassType = TButton then
            if TButton(Components[I]).Caption = 'Test' then
                        TButton(Components[I]).Caption := 'Lort';
    end;
end;

tusind tak for hjælpen...

:) selvtak