Types of actual and formal var parame

[taktaky]

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
________