Hallo!
Bin absoluter Delphi-Anfänger mit folgendem Problem:
Nachdem ich eine
csv-Datei in eine ListBox eingelesen habe [mittels eines arrays of record], möchte ich nun je nach Selektion in der ListBox ein unterschiedlich großes Memofeld erzeugen um dort Text anzuzeigen.
Hier der Code:
Delphi-Quellcode:
[b]procedure[/b] TForm1.ListBoxClick(Sender: TObject);
var
Memofeld1: TMemo;
Memofeld2: TMemo;
begin
[b]if[/b] Rec[ListBox.ItemIndex].Typ = [color=blue]'Typ_A'[/color] [b]then begin[/b]
Memofeld1 := TMemo.Create(Form1);
Memofeld1.Parent:=Form1;
Memofeld1.Left := 400;
Memofeld1.Top := 40;
Memofeld1.Height := 100;
Memofeld1.Width := 250;
Memofeld1.Text:=Rec[ListBox.ItemIndex].A;
[b]end;[/b] // end-if
[b]if [/b]Rec[ListBox.ItemIndex].Typ = [color=blue]'Typ_B'[/color] [b]then begin[/b]
Memofeld2 := TMemo.Create(Form1);
Memofeld2.Parent:=Form1;
Memofeld2.Left := 400;
Memofeld2.Top := 40;
Memofeld2.Height := 150;
Memofeld2.Width := 250;
Memofeld2.Text:=Rec[ListBox.ItemIndex].B;
[b]end;[/b] // end-if
[b]end;[/b]
Das Erzeugen des Memofeldes klappt auch. Allerdings überlappen sich die Felder, das heißt man sieht noch das 'alte' Feld unter dem neuen, wenn ich erst einen Eintrag in der Listbox selektiere der ein kleinesre Memofeld erzeugt.
Das gleiche Problem habe ich mit einer dynamisch erstellten Label-Komponente (mit Transparent und Visible habe ich schon herumgespielt).
Versucht habe ich es mit Memofeld.Refresh (Repaint, Update). Gleiches mit Form1.Refresh usw.
Irgendwie müsste das gesamte Form1 neu 'gemalt' werden, wenn ich einen Eintrag in der ListBox selektiere.
Wer kann helfen? (Ja, ich habe F1 gedrückt, sogar ganz schön oft...)
Danke und Gruß,
Christoph
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]