Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#19

AW: SpinEdit TSpinEdit: Gibt es Eigenschaft o. Ereignis Pfeil(e) losgelassen?

  Alt 8. Mär 2012, 17:34
wenn do TApplicationEvents nicht als Komponente hast kannst Du auch folgendes machen (hoffentlich bei Turbo)
Delphi-Quellcode:
procedure TForm2.MyOnMessage(var Msg: TMsg; var Handled: Boolean);
begin
   if Msg.message= WM_LBUTTONDOWN then FMouseDown := true
   else if Msg.message= WM_LBUTTONUP then FMouseDown := false

end;

procedure TForm2.FormCreate(Sender: TObject);
begin
  Application.OnMessage := MyOnMessage;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat