Два события на одну кнопку

[Primo13]

Приветствую уважаемые форумчане! Есть вопрос...

Имеется следующий код:

procedure TForm1.Button1Click(Sender: TObject);
begin
   inc(n);
Image1.Picture.LoadFromFile(IntToStr(n)+'.bmp');
if n=8 then n:=0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if GetAsyncKeyState(17) <> 0 then button1.Click;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key = 17 then button1.Click;
end;
 
end.

Как сделать, чтобы при нажатии на Button1, форма становилась видимой? То есть добавить второе событие на нее...

Изначально, форма скрыта функцией WindowState:=wsMinimized.

Заранее признателен за помощь!

[FaTaL]

Присвоить WindowState:=wsNormal;

[Primo13]

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

Присвоить WindowState:=wsNormal;

Это понятно... А как это сделать именно на нажатие Button1?

[FaTaL]

Ну если у тебя форма свёрнута, то только развернув её.

[Primo13]

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

Ну если у тебя форма свёрнута, то только развернув её.

О чем ты?! Где написано что она свернута? =) И причем тут вообще это? Задача ведь в другом... В код добавить процедуру на изменение функции WondowState, при нажатии на Button1. Проблема в том, что я не знаю как сделать два события на одну кнопку... При всем при этом, перехват тоже должен действовать.

[Alex11223]

Для начала надо сформулировать нормально что вы хотите.

Как сделать, чтобы при нажатии на Button1, форма становилась видимой?

Это бред потому что пользователь не нажмет кнопку на невидимой форме.

procedure TForm1.Timer1Timer(Sender: TObject);
begin
... then button1.Click;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
... then button1.Click;
end;

Этот код надо выкинуть и сделать нормальные функции/процедуры. Кнопки нужны для нажатия пользователем, а не вызова их обработчиков из кода.

[Primo13]

Бред, не бред, но мне нужно именно так... Изначально форма невидима, нужно сделать так, чтобы по нажатию на CTRL (17), который перехватывает нажатие Button1 (или наоборот) форма становилась видимой и показывала картинки по очереди...

[Alex11223]

Да не нужно вам никакие кнопки нажимать, сделайте процедуры, для смены картинок и для показа формы, и вызывайте их где надо.

[FaTaL]

Или раз на то пошло используйте горячие клавиши.

[Primo13]

Как сделать, чтобы при нажатии одной кнопки на форме, происходило 2 процедуры? Например: изменение названия формы и сворачивание формы...