pagecontrol

[cybergen]

Mhm warum machst du nicht sowas wie:

onPageChange ...
if ActivePage = Page1 then fActiveMemo := Memo1;
if ....

zu billig ? *G*

geht auch komplizierter ... (PseudoCode)

function SearchMemo(wc:TComponent) : TMemo;
var i : integer;
begin
result := nil;
for i:=0 to wc.componentcount - 1 do
begin
if wc.components[i] is TMemo then
begin
result := TMemo(wc.components[i]);
exit;
end else
if wc.components[i].componentcount > 0 then
begin
result := SearchMemo(wc.components[i]);
if result <> nil then exit;
end;
end;
end;


OnComboKeyPress ...
var mm : TMemo;
if key = #13 then
begin
mm := SearchMemo(PageControl1.ActivePage);
if assigned(mm) then
with mm do
begin
mm.lines.text := mm.lines.text + 'Lustisch zeugs';
end;
end;

es geht auch noch anders ...

var mm:array[1..3]of Tmemo;
OnFormCreate
mm[1] := Memo1;
mm[2] := memo2;
mm[3] := memo3;
PageControl1Page1.Tag := 1;
PageControl1Page1.Tag := 2;
PageControl1Page1.Tag := 3;
.... (könnte man auch über eine collection lösen ich weis)

und später dann einfach:

OnKey....
mm[PageControl1.ActivePage.Tag].Lines.add('Noch lustischers Zeugs');


gruss cyb.