Museklick

dette får mussen til at click:

mouse_event(mouseeventf_leftdown, 0, 0, 0, 0);
mouse_event(mouseeventf_leftup, 0, 0, 0, 0);

/ZIRON

du markerer komponentet og i events vælger du OnClick ved fx et billede, og sætter koden ind:

Image1.Hide;

så forsvinder billedet når der klikkes på det...

Hej Johnny

Følgende kode vil kalde Button1Click, når musen flyttes over knappen.

procedure TForm1.Button1Click(Sender: TObject);
begin
    //Din Kode
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    Button1Click(sender);
end;

/cadamsen

Sikke en masse hurtige svar
jeg tror det er det første jeg skal bruge
men jeg er ikke helt sikker hvordan
Jeg har et dbgrid som jeg ønsker at dragge noget til, problemet er at dbgriddet peger på den første record, og det er sjældent at det er lige der jeg skal dragge til. Så derfor tænkte jeg at jeg på en onMousemove for dbgriddet kunne klike hvis leftButton er aktiv, skal der nogle koordinater til eksemplet:
mouse_event(mouseeventf_leftdown, 0, 0, 0, 0);
mouse_event(mouseeventf_leftup, 0, 0, 0, 0);
eller hvad er alle de nuller
Hilsen Johnny

Nu har jeg fået det til at virke
Tak hilsen Johnny

det var da så lidt, emn husk lige at lukke dit spørgsmål...

/ZIRON