Witam mam problem z sworzeniem eventu OnClick na przycisku stworzonym dynamicznie na Formie która tez jest tworzona w sposób dynamiczny
Potrzebuje pobrac wartość z myEdit do 2 kolumny ListView która jest stała na Form1
A sam proces tworzenia wygląda w ten sposób:
procedure TForm2.ListView1SelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
var
Form3:TForm;
myButton : TButton;
myEdit : TEdit;
myLabel : TLabel;
begin
Form3 := TForm.Create(Application);
//Dynamiczne tworzenie komponentów na onie dialogowym ilości przedmiotów
myButton := TButton.Create(Form3);
myEdit := TEdit.Create(Form3);
myLabel := TLabel.Create(Form3);
{Dynamiczne nadanie wartosci komponentów}
//Wartosci formy 3
Form3.Width := 150;
Form3.Height := 120;
//Pole opisu wybranego przedmiotu
myLabel.Top := 5;
myLabel.Left := 20;
myLabel.Caption := 'Ile potrzebujesz ' + Item.Caption;
myLabel.Parent := Form3;
//Pole wpisania liczbczy przedmiotów
myEdit.Top := 20;
myEdit.Left := 20;
myEdit.Width := 50;
myEdit.NumbersOnly := True;
myEdit.Parent := Form3;
//Przycisk dodaj
myButton.Top := 50;
myButton.Left := 50;
myButton.Caption := 'Dodaj';
myButton.OnClick := myButtonClick;
myButton.Parent := Form3;
{Koniec dodawania wartosci komponentów}
//Pokazanie formy
Form3.Show;
end;