Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  AW: mousemove mousedown triggern

   
    by baumina, 26. Feb 2014
  meinst du evtl so etwas?
  
  procedure TForm1.Button1Click(Sender: TObject) ;
  var
  Pt : TPoint;
  begin
  Application.ProcessMessages;
  {Get the point in the center of Button 2}
  Pt.x := Button2.Left + (Button2.Width div 2) ;
  Pt.y := Button2.Top + (Button2.Height div 2) ;