Ik snap er helemaal niets meer van. De borderstyle wil niet compileren als deze op bsNone wordt gezet. De unit forms staat gewoon in de uses.
Dus waarom wilt Lazarus/FPC dit niet compileren? De andere waarden doet hij wel.delphi Code:
procedure TMyStart.Nextform(const Scherm: string); var Tabsheet : TTabsheet; form : TForm; PClass : TPersistentclass; begin try Tabsheet := TTabsheet.Create(FPControl); tabsheet.Caption := Scherm; Tabsheet.PageControl := FPControl; PClass := FindClass('T' + Scherm); Form := TFormclass(PClass).create(Tabsheet); Form.BorderStyle := bsNone; form.WindowState := wsMaximized; Form.Parent := Tabsheet; Form.show; except showMessage(Scherm + ' niet gevonden'); end; end;
Bookmarks