Elementy tworzę dynamicznie przy starcie wtyczki wewnątrz funkcji IStart, jeśli forma jest typu TForm, to komponenty wizualne się pojawiają, ale nie mogę przypisać żadenego zdarzenia np. onClick do buttona. Jeżeli zdefiniuję własny typ TFormMain, który dziedziczy z TForm to przy starcie K jest wyjątek krytyczny.
W czym jest problem?
Jak to ma poprawnie wygladać ?
QUOTE
type
TFormMain = class(TForm)
private
Button1 : TButton;
procedure Button1Click(Sender: TObject);
public
end;
{$R *.res}
var
Form1: TFormMain;
procedure TFormMain.Button1Click;
begin
Button1.Caption := 'WORK';
end;
function IStart(): Integer;
var
UIHandle: Integer;
msg: PChar;
begin
{ Tutaj wtyczkę uruchamiamy... skopiowane z przykładu Simple}
Form1 := TFormMain.Create(nil);
with Form1 do
begin
Caption:='Okienko';
Left :=100;
Top :=100;
Button1 := TButton.Create(nil);
with Button1 do
begin
Parent := Form1;
Caption:= 'OK';
Height := 25;
Width := 153;
Top := 8;
Left := 8;
OnClick:= Form1.Button1Click;
end;
end;
Form1.Show;
end;
.