Своя кнопка MAXIMIZE

[Dotha]

Здраствуйте!
как сделать свою MAXIMIZE кнопку.
поставил на форму spedButton а что написать по клику не знаю подскажите пожалуйста.

[Kashp]

Сообщение от Dotha

Здраствуйте!
как сделать свою MAXIMIZE кнопку.
поставил на форму spedButton а что написать по клику не знаю подскажите пожалуйста.

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 form1.WindowState:=wsMaximized;
end;

end.

[Dotha]

большое спасибо.
А как сделать что бы по второму нажатию форма принимала свой размер

[Stilet]

if  WindowState=wsMaximized then WindowState=wsNormal

[Kashp]

Сообщение от Dotha

большое спасибо.
А как сделать что бы по второму нажатию форма принимала свой размер

Например можно и так :

var
a: boolean; // Объявляем глобальную переменную

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject); 
begin
 a:=false; // Устанавливаем значение переменной "ложь"
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 if a=false then // если а="ложь", то развернуть окно во весь экран и назначить переменной а значение "истина"
  begin
   Form1.WindowState:=wsMaximized;
   a:=true;
  end
  Else // Иначе
 if a=true then // если а="истина", то вернуть первоначальный размер окна и назначить переменной а значение "ложь"
  begin
   Form1.WindowState:=wsNormal;
   a:=false;
  end;

end;

end.