Zitat von
pstruh:
Wie wäre es mit Bevel1.Cursor:=crNone?
Hallo
ich habe meine Frage nicht gut ausgedrückt
Ich möchte den Cursor auf den Bereich Bevel1 ein- und ausblenden durch Click auf Bevel1 selbst
Momentan verwende ich ein Click auf ein Button :
Delphi-Quellcode:
procedure TForm1.Button7Click(Sender: TObject);
begin
if Button7.Caption='einblenden' then
begin
Button7.Caption:='ausblenden';
Bevel1.Cursor:=crNone
else
begin
Button7.Caption:='einblenden';
ShowCursor(true); // show cursor
end;
end;
Ist das möglich?
Gruß
______________