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...