Form übergreifende button

[mentos112]

ich habe das problem das ich ein form1 habe auf dem ein button ist wenn ich diesen button anklicke soll sich ein form2 öffnen. (soweit kein problem) aber gleichzeitig sollen auch die Daten aus einer listbox und einer Radiogroup aus form1 in einem memo in form2 angezeigt werden

wer helfen kann bitte dringend!!

mfg mentos112

[Mr_G]

Erweiter Form2 doch einfach um eine Methode der du die entsprechenden Inhalte übergibst und die diese anzeigen lässt.
Diese Methode müsstest du dann nur beim öffnen aufrufen oder wann immer du die felder mit neuen Werten füllen willst.

[mr.unbekannt]

Delphi-Quellcode:

var n,n2:integer;
begin
n:=listbox1.itemindex;
n2:=-1;
repeat
n2:=n2+1;
form2.memo1.lines.add(listbox1.items[n2]);
until n2=n;
//memo ende

und sowas noch mit der radiobox

hoffe es funzt so, habe mir nur sehr schnell diesen text ausgedacht!

[mentos112]

das bringt mich nicht wirklich weiter ich habe da an so was wie z.b.

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

mfg mentos112

[mr.unbekannt]

ist doch fast das selbe, nur ich weiß net ob du da alle strings kriegst und das soll doch in das memo feld und nicht in ein edit feld oder?

[mentos112]

nein es soll in ein memo hab mich verschrieben!!

[Mr_G]

Was funktioniert denn an deinem Code nicht? Taucht ein Fehler auf?

[mr.unbekannt]

hilft dir mein code net? der liest die zeilen nacheinader aus und müsste sie nacheinander in das memo schreiben!

[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

mfg mentos112

[Mr_G]

Zitat:

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:

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