Je kan dan toch gewoon iets zeggen als (typ dit uit de losse pols, heb Delphi niet ff bij de hand):
in mainform:
Delphi Code:
procedure mainform.listboxdoubleclick(sender: tobject);
begin
childform.someprocedure;
end;
in childform:
Delphi Code:
procedure childform.someprocedure;
begin
#querystuff
for i := mainform.listbox.items.count - 1 downto 0 do
begin
if mainform.listbox.selected[i] then
begin
query.table := mainform.listbox.items.strings[i];
break;
end;
end;
Je zou de loop ook in de mainform zelf kunnen doen en dan als parameter de string kunnen passen. Krijg je zoiets:
Delphi Code:
procedure mainform.listboxdoubleclick(sender: tobject);
begin
for i := mainform.listbox.items.count - 1 downto 0 do
begin
if mainform.listbox.selected[i] then
begin
childform.someprocedure(mainform.listbox.items.strings[i]);
break;
end;
end;
in childform:
Delphi Code:
procedure childform.someprocedure(dezetabel: string);
begin
querystuff.table := dezetabel;
end;
Neem tenminste aan dat het hetzelfde werkt als in vcl forms applications. hoop dat je er wat aan hebt.
Bookmarks