Ich bin dabei, eine Unit von Delphi nach Lazarus/Free Pascal zu konvertieren. Es beinhaltet ein Formular, dem ich gerne die Titelleiste wegnehmen würde. Der Delphi Code, der einwandfrei funktioniert hat, schaut so aus (ist nicht von mir erfunden):
Code: Alles auswählen
procedure TDialog.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style := Params.Style or WS_POPUP or WS_THICKFRAME;
Params.ExStyle := WS_EX_TOOLWINDOW;
SpecialPosition:=false;
SpecialTimeout:=0;
StandardIcon:=true;
end;
Wie kann ich unter Lazarus/Free Pascal ein Formular ohne Titelleiste, aber mit Rahmen erzeugen?