Form übergreifende button

[Mr_G]

Zitat von mentos112:

...

Delphi-Quellcode:

procedure TForm2:Form2.Button1Click(Sender: TObject);
begin
beep;
if Form2.ListBox1.ItemIndex <> -1 then
  Form3.Edit1.Text := Form2.ListBox1.Items[Form2.ListBox1.Itemindex];
end;

aber das läuft noch nicht richtig!! ...

Zitat von mentos112:

ich brauche net alle zeilen aus der listbox sondern nur die die makiert ist das wenn nicht makiert leere zeile schreiben

sonst geht der code keine fehler ...

Dann mach daraus Folgendes:

Delphi-Quellcode:

procedure TForm2:Form2.Button1Click(Sender: TObject);
begin
beep;
if Form2.ListBox1.ItemIndex <> -1 then
  Form3.Memo1.Lines.Add(Form2.ListBox1.Items[Form2.ListBox1.Itemindex])
else
  Form3.Memo1.Lines.Add('');
end;

Statt Edit1 nimm dann eben einfach das Memo1 oder wie du es nennen willst...