Witam.
Mam problem, generuje sobie TSynMemo na komponencie TTabSheet i do zdarzenia OnChange (w SynMemo) przypisuje procedurę którą napisałem
procedure TForm1.EventOnChange(Sender:TObject);
begin
if GetCurBar.Name <> '' then begin
GetCurBar.Panels[0].Text:=Format('X:%d Y:%d',[GetCurMemo.CaretX,GetCurMemo.CaretY]);
end;
end;
Procedurę pobierające komponenty na aktywnej karcie to
function TForm1.GetCurMemo:TSynMemo;
var
I:Integer;
begin
with ControlTAB.ActivePage do begin
for I:=0 to ControlCount -1 do begin
if (Controls[i] is TSynMemo) then Result:=(Controls[i] as TSynMemo);
end;
end;
end;
function TForm1.GetCurBar: TStatusBar;
var
I:Integer;
begin
with ControlTAB.ActivePage do begin
for I:=0 to ControlCount -1 do begin
if (Controls[i] is TStatusBar) then Result:=(Controls[i] as TStatusBar);
end;
end;
end;
Problem tkwi w tym że to nie działa nie wiem czemu bo jak stworze button i dam mu np GetCurMemo.SelectAll; to działa poprawnie.
Może wie ktoś w czym tkwi problem ew jak go rozwiązać?