Witam!
Mam następujący problem: chcę stworzyć dynamicznie okno z przyciskiem, który po wciśnięciu wywoła inną procedurę. Nie wiem tylko, jak do tej drugiej przekazać parametry. Chodzi mi o coś takiego:
procedure TForm1.proc1(Sender : TObject; par1 : integer; par2 : string);
var
okno : TForm;
wyslij : TButton
begin
okno := tform.Create(self);
okno.Left:=10;
okno.Top:=10;
okno.Width:=500;
okno.Height:=300;
okno.Caption:='nowe';
okno.Parent:=okno;
okno.Visible:=True;
wyslij := tbutton.Create(okno);
wyslij.Left := 400;
wyslij.Top := 240;
wyslij.Width := 60;
wyslij.Height := 20;
wyslij.Parent := okno;
wyslij.Visible := true;
wyslij.Caption := 'Wyslij';
wyslij.Name := 'sendmess';
wyslij.OnClick := napisz;
No i oprocz tego mam jeszcze procedure napisz. I chce zrobić tak, aby parametry par1 i par2 były przekazane do procedury napisz. Tyle tylko, że przy deklaracji:
procedure napisz(Sender : TObject; param1 : integer; param2 : string);
Próba wywołania
wyslij.OnClick := napisz(self; par1; par2);
kończy się błędem kompilacji:
[Error] plik.pas(235): Incompatible types: 'TNotifyEvent' and 'procedure, untyped pointer or untyped parameter'