Registriert seit: 24. Okt 2004
1.542 Beiträge
Delphi XE Architect
|
Re: GUI per DLL
24. Jul 2005, 15:53
Wenn dann so:
procedure Button1Click(Sender: TObject);
Außerdem musst du diese prozedure dem Button zuweissen:
Delphi-Quellcode:
procedure DLLFormShow; stdcall;
begin
Form1 := TForm.Create(nil);
Form1.Top := 0;
Form1.left := 0;
Form1.Width := 100;
Form1.Height := 200;
Memo1 := TMemo.Create(Form1);
Memo1.Top := 100;
Memo1.left := 0;
Memo1.Width := 100;
Memo1.Height := 100;
Memo1.Parent := Form1;
Button1 := TButton.Create(Form1);
Button1.Top := 0;
Button1.left := 0;
Button1.Width := 100;
Button1.Height := 100;
Button1.Caption := 'FreeMe';
Button1.OnClick := Button1Click; //Hier, weiss aber nicht ob des genau so heisst
Button1.Parent := Form1;
Form1.Show;
end;
Ungetestet
//edit: Fehler ausgebessert
Alex "Sage nicht alles, was du weißt, aber wisse alles, was du sagst!" Matthias Claudius
"Wer sich über Kritik ärgert, gibt zu, daß er sie verdient hat." Tacitus
|