Registriert seit: 21. Jun 2002
602 Beiträge
|
25. Feb 2003, 20:11
Wie wär's mit der Property Cursor des SpeedButtons?
Delphi-Quellcode:
procedure TForm1.Edit1Enter(Sender: TObject);
var
Button: TSpeedButton;
begin
Button := TSpeedButton.Create(TComponent(Sender));
with Button do begin
// ...
Cursor := crHandPoint;
end;
end;
-- Crucifixion?
-- Yes.
-- Good. Out of the door, line on the left, one cross each.
|