Zitat von
Zacherl:
Screen.Cursor := crNone
Leider der von Dir geschriebenen Code, nur beim schönen Wetter funktioniert 
Was wäre wenn ich eine fremde Anwendung in meine Form binde ?! Natürlich wird der Cursor
trotz der Code " Screen.Cursor := crNone" oder "Bevel1.Cursor:=crNone;" nicht ausgeblendt.
Ich binde eine fremde Anwenung in meine Form so :
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var dhwnd1: THandle;
begin
shellexecute(1,'open','"test.exe"','','',SW_show);// die fremde Anwendung wird gestartet
panel1.SetFocus;
dhwnd1:=FindWindow('TMainForm',nil); // die fremde Anwendung wird gesucht
if dhwnd1<>0 then Windows.SetParent(dhwnd1, panel1.Handle);
//EnableWindow(FindWindow('TMainForm', nil),false);
ShowWindow(dhwnd1, SW_MAXIMIZE); // maximiert fremde Programme
end;
Der Cursor bleibt leider immer eingeblendet, wenn er auf die fremde Anwendung (test.exe, die in Form gebunden ist) sich bewegt.
Die Lage wie du siehst, ist nicht so einfach
________