Hallo,
hier wieder das oft durchgekaute Thema "dynamische Controls". Doch diesmal ist es ein bisschen anders: Ich habe eine Hauptanwendung mit einem Formular & eine
DLL, die erst wärend der Laufzeit eingelesen wird (siehe dieses Tutorial
hier). Diese
DLL beinhaltet eine Funktion
function DoGUIActions(FormHWND: HWND): ShortString; stdcall;
Wie man sicherlich erkennt wird von der "Hauptanwendung" das HWND vom Fenster an die
DLL übergeben. Diese sollte nun einen einfachen Button auf eben diesem Formular erzeugen:
Delphi-Quellcode:
function DoGUIActions(FormHWND: HWND): ShortString; stdcall;
var Button: TButton;
begin
Button := TButton.CreateParented(FormHWND);
With Button do begin
Caption := 'Hallo';
Name := 'cmdTest';
Left := 10; Top := 10;
Visible := True;
end;
Result := Button.Caption; // Wird als Kontrolle durch eine ShowMessage ausgegeben
end;
Nur leider erscheint der Button wider Erwarten nicht auf dem Formular
Mit einem normalen TForm als Argument habe ich es auch schon versucht, sprich so:
Delphi-Quellcode:
function DoGUIActions(Form: TForm): ShortString; stdcall;
var Button: TButton;
begin
Button := TButton.Create(Form);
With Button do begin
Caption := 'Hallo';
Name := 'cmdTest';
Left := 10; Top := 10;
Visible := True;
end;
Result := Button.Caption;
end;
Geht leider genau so wenig
Beim ersten bekomme ich keine Fehlermeldung, beim zweiten jedoch eine Zugriffsverletzung.
Kann mir jemand auf Anhieb sagen was ich falsch mache?
Ich habe auch schon nach
API-Befehlen (da diese ja eigentlich ausschließlich mit HWND-Argumenten funktionieren) gegoogelt, mit denen man eben solche Controls erstellen kann, doch leider ohne Erfolg
Ich bin für jede Hilfe dankbar!