Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: SpinEdit TSpinEdit: Gibt es Eigenschaft o. Ereignis Pfeil(e) losgelassen?
7. Mär 2012, 16:44
vielleicht kannst Du aus diesem Ansatz etwas machen?
Delphi-Quellcode:
procedure TForm2.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
begin
if Msg.message= WM_LBUTTONDOWN then FMouseDown := true
else if Msg.message= WM_LBUTTONUP then FMouseDown := false
end;
procedure TForm2.SpinEdit1Change(Sender: TObject);
begin
if not FMouseDown then Caption := SpinEdit1.Text;
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)
|