تغییر اندازه فرم بوسیله تغییر اندازه image

[nassim_20]

من یه فرم دارم که خاصیت BorderStyle اون رو None کرده ام و اصل فرمم رو ی تصویر تشکیل میده
حال میخواهم بتونم با استفاده از این Image فرمم رو تغییر سایز بدم عین خود فرم که وقتی موس به لبه های فرم میرسه تغییر شکل میدهد و با درگ کردن میشه تغییر سایزش داد البته از هر چهار سمت

[اصغر (پآچ)]

سلام دوست من اما فکر کنم عملی نباشه چون فرمت خاصیت بردر نداره که بخوای تغییر سایزش بدی این نظر منه اما شاید بقیه دوستان بدونن چطور میشه این کار رو انجام داد
موفق و موید باشی

[taha]

سلام



...
private
{ Private declarations }
procedure CreateParams(var Params: TCreateParams); override;
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;

...

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := (Style OR WS_POPUP) and (not WS_DLGFRAME);
end;

procedure TForm1.WMNCHitTest(var Msg: TWMNcHitTest);
begin
inherited;
if (Msg.Result = HTCLIENT) then
Msg.Result := HTCAPTION;
end;

خصوصیت BorderStyle فرمت را هم bsSizeable قراربده.
حالا فرم بدون Title Bar را هم می تونی حرکت بدی و هم تغییر اندازه