Mega Code Archive
How to build a title less form that resizes
<![CDATA[
Title: How to build a title-less form that resizes?
Question: When you want to have a form without title, but you want the user can resize it, what do you do?
Answer:
Use the CreateParams methode. Overwrite it like this
type
TNiceForm = class(TForm)
protected
procedure CreateParams(var Params: TCreapeParams); override;
end;
implementation
{ TNiceForm }
procedure TNiceForm.CreateParams(var Params: TCreateParams);
begin
Params.Style := Params.Style or WS_THICKFRAME;
end;
end.
Have fun using this code. Mail me if you have any problems @ibiglari@yahoo.de
]]>