Клик мыши по кнопке

[SeregaKo]

Делаю тест, появился такой вопрос: как делать проверку клика мышки по кнопке на главной форме?

procedure TVopros2.FrameCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
MainForm.SpeedButton2.Enabled:=false;
end;

procedure TVopros2.RadioGroup1Click(Sender: TObject);

begin

 If RadioGroup1.Buttons[0].Checked or
    RadioGroup1.Buttons[1].Checked or
    RadioGroup1.Buttons[2].Checked

    then MainForm.SpeedButton2.Enabled:=true;

 If MainForm.SpeedButton2.Click then

    begin

    If Vopros3 <> nil then
    Vopros3.Free;
    Vopros3 := TVopros3.Create(MainForm.Panel1);
    Vopros3.Align := alClient;
    Vopros3.Parent := Panel1;

     end;
     end;


end.

[Terran]

Procedure TForm1.FormClick(Sender: TObject);
Begin
...
End;

Так же можете объявить переменную типа Boolean и при клике устанавливать ей значение.

[SeregaKo]

Мне нужен клик по кнопке пропустил слово , пардон темно

[Terran]

как делать проверку клика мышки по кнопке на главной форме

Аналогично, как и с формой.

Procedure TForm1.Button1Click(Sender: TObject);
Begin
//Действия
End;

Все события есть у кнопки.

[SeregaKo]

Мне нужно вот здесь делать проверку:

If MainForm.SpeedButton2.Click then

begin
If Vopros3 <> nil then
Vopros3.Free;
Vopros3 := TVopros3.Create(MainForm.Panel1);
Vopros3.Align := alClient;
Vopros3.Parent := MainForm.Panel1;
end;
end.

Но естественно в этом месте ошибка
Или нужно прописать так:
If TMainForm.SpeedButton2Click then

[SeregaKo]

Т.е. есть главная форма, на ней панель, где отображаются фреймы (вопросы теста). На главной форме кнопки соответственно: вперёд, назад. Так вот если выбран ответ на один из вопросов теста, то кнопка вперёд доступна и если на неё кликнуть появляется след. вопрос

[Terran]

Хм... Я думаю эта проверка некчему т.к. при нажатии на кнопку выполнится список инструкций, которые записаны в обработчике нажатия на кнопку. А нажатие на кнопку в if Then не проверить.

кнопка вперёд доступна и если на неё кликнуть появляется след. вопрос

Вам тогда нужно сделать так:

Procedure TMainForm.SpeedButton1Click(Sender: TObject);
Begin
If Vopros3 <> nil then
Vopros3.Free;
Vopros3 := TVopros3.Create(MainForm.Panel1);
Vopros3.Align := alClient;
Vopros3.Parent := MainForm.Panel1;
End;

[SeregaKo]

А как мне тогда лучше поступить ?

Ну это понятно, я так и делаю:
у меня на форме 3 кнопки: старт, вперёд и назад (невидимые)
Когда кликнуть на кнопку старт, др. 2 становятся видимыми, старт невидимой и загружается первый вопрос.
Для второго вопроса соответственно клик по кнопке вперёд
Procedure TMainForm.SpeedButton2Click(Sender: TObject);
и загружается 2 вопрос.

А дальше как незнаю 18 кнопок чтоль кидать на форму

[Terran]

В этом случае можете просто делать проверку какой вопрос загружен и потом загружать остальные. К примеру:

Procedure TMainForm.SpeedButton2Click(Sender: TObject);
Begin
If первый вопрос загружен=True Then
\\Загружаем второй вопрос
If второй вопрос загружен=True Then
\\Загружаем третий вопрос
End;

Или что-то на подобии этого. Думаю много кнопок кидать не нужно, просто делайте проверку или как-нибудь отмечайте вопросы и потом в зависимости от надобностей выводите вопросы.

[S@fer]

Можно в паблике объявить новую переменную,
По нажатию кнопки менять ее значение, допусти a:=1;
Затем уже проверять эту переменую.
if a=1 then //делаем тото