Hallo,
ich habe eine Form auf der ist ein Pagecontrol mit drei TabSheets,
auf jeden TabSheet sind 3 Memos und 2 Listboxen.
Mein Problem ist, dass mit dem Code unten beim klick auf Listbox1,
die ersten 3 Memos auf Tabsheet1 gefüllt werden...
soweit ja noch in Ordnung,
nur wenn ich z.b. dann beim Tabsheet2 auf Listbox2 klicke, füllen sich nicht die Memos auf Tabsheet 2 sondern die Memos auf Tabsheet 1. Wie kann ich das lösen?
Delphi-Quellcode:
var
s: string;
i, j: Integer;
begin
ListBox2.Items.Clear;
for i := 0 to listbox1.items.count - 1 do
begin
s := listbox1.items[i];
while pos('|', s) > 0 do
begin
if ListBox1.Selected[i] then
begin
if pos('|', s) = 1 then
begin
listbox2.items.add('');
end else begin
listbox2.items.add(copy(s, 1, pos('|', s) - 1));
end;
end;
delete(s, 1, pos('|', s));
for j := 0 to listbox2.items.count - 1 do
begin
TMemo(FindComponent('Memo' + inttostr(j))).text := listbox2.items[j]:
Gibt es sowas ähnliches wie
TMemo(FindComponent.Tabsheet2.Memo
?