Witam.
W onCreate formy MDIChild mam taki kod:
procedure Tkonsola.FormCreate(Sender: TObject);
begin
SQLColor:= TSynSQLSyn.Create(konsola);
SynEdit2:= TSynEdit.Create(konsola);
with SynEdit2 do
begin
Parent:= konsola;
Anchors:= [akLeft, akRight,akBottom];
Text:= '';
Align:= alBottom;
Height:= Konsola.Height - 175;
Gutter.Visible:= False;
RightEdge:= 0;
Highlighter:= SQLColor;
WordWrap:= True;
TabOrder:=0;
WantReturns:= False;
Options:= [eoAutoIndent,eoDragDropEditing,eoEnhanceEndKey,eoGroupUndo,eoRightMouseMovesCursor,eoShowScrollHint];
KeyStrokes.Delete(Keystrokes.FindShortcut(vk_return));
onKeyPress:= SynEdit2KeyPress;
end;
W menu formę wywołuję tym kodem:
konsola:= Tkonsola.Create(Form1);
konsola.Show;
I wszystko skutkuje błędem Access Violation na lini z:
Height:= Konsola.Height - 175;
gdzie Konsola to ta forma.
Dodam, że gdy usunę z formy właściwość Formstyle: MDIChild to wszystko jest ok.
Jak temu zaradzić?