با درود و احترام
کد زیر رو formresize نوشتم اما کار نمیکنه یعنی وقتی بزرگ میکنم شرط اولی اجرا میشه و وقتی کوچک میکنم شرط دومی اجرا میشه
procedure TForm1.FormResize(Sender: TObject);
begin
if (WindowState=wsNormal) then
begin
Edit1.Top:=18;
Edit2.Top:=50;
end;
if (WindowState=wsMaximized) then
begin
Edit1.Top:=25;
Edit2.Top:=70;
end;
end;
اگه امکانش باشه لطفا یه نمونه کد بزارین.
با تشکر از توجهتان
پاسخ با نقل قول