maximize در فرم

[pandco]

با درود و احترام

یه فرمی هستش که در داخلش چند تا editbox و dbgrid هستش چطوری میشه وقتی کاربر روی maximize کلیک کرد و صفحه بزرگ شد editbox و dbgrid نیز هم فونت ها و خودشون بزرگ بشن و دوباره روی maximize کلیک کرد به حالت اولیه برگردن. خاصیتی باید تغییر بدم یا کد داره ؟ البته لطف میکنین کمکم کنید

با تشکر

[یوسف زالی]

سلام
اندازه فونت رو درست کنید، ببینید در حالت بزرگ چه اندازه ای مناسبه، در حالت کوچک چی، و نسبتش رو محاسبه کنید و در رویداد FormResize اونها رو ست کنید

[pandco]

با درود و احترام
کد زیر رو 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;

اگه امکانش باشه لطفا یه نمونه کد بزارین.
با تشکر از توجهتان

[یوسف زالی]

unit Unit1;





interface





uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;





type

  TForm1 = class(TForm)

    Label1: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure FormResize(Sender: TObject);

  private

    BaseHeight: integer;

    BaseFontSize: integer;

  public

    { Public declarations }

  end;





var

  Form1: TForm1;





implementation





{$R *.dfm}





procedure TForm1.FormCreate(Sender: TObject);

begin

  BaseHeight := Height;

  BaseFontSize := Label1.Font.SIZE;

end;





procedure TForm1.FormResize(Sender: TObject);

var

  Ratio: real;

begin

  Ratio := Height / BaseHeight;

  Label1.Font.SIZE := Round(BaseFontSize * Ratio);

end;





end.

[pandco]

ممنون از کمکتون

تو دکمه ها و دیبی گرید چطوری میتونم خود دیبی گرید و دکمه ها رو نیز بزرگ کنم با کد بالایی تست کردم فونت ها بزرگ شدن اما دکمه ها سایزشون بزرگ نشدن . البته لطف میفرمایید کمک میکنید

با تشکر

[یوسف زالی]

برای بزرگ کردن کنترل ها باید از روش دیگری مثل anchor یا align استفاده کنید.
استفاده از روش بالا برای بزرگ کردن کنترل ها سخت و مستلزم دقت زیاد است.