|
Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
Re: gleiche OnMouseMove zusammenfassen
28. Apr 2004, 11:26
Schreibe doch die Methode so:
Delphi-Quellcode:
procedure TForm.SomeMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if Sender is TControl then
(Sender as TControl).Cursor := crHandPoint;
end;
...  ...
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
|