Как програмно нажать кнопку? Button1.Click не пашет

[FleXik]

procedure TForm3.FormShow(Sender: TObject);
begin

  repeat
    Form3.ShowModal;
  until
    Form3.sEdit1.Text<>'' or Form3.sButton2.Click;

end;

Form3.sButton2.Click; - не работает, получаю ошибку:

[Error] Unit3.pas(41): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'

[Аватар]

Пашет. У тебя не компилируется, потому что Click совсем не булевая функция

[FleXik]

Аватар, то что пашет я знаю, но в моем случае не хочет.

[Serge_Bliznykov]

Вы написали бред, поэтому и не "пашет"

что такое

until
    Form3.sEdit1.Text<>''  or Form3.sButton2.Click

в until указыается ЛОГИЧЕСКОЕ условие. Form3.sButton2.Click не возвращает логическое (булевое) значение, поэтому такая запись бессмыслена.



p.s. про такую "мелочь", что отдельные сравнения должны в логической формуле отделяться скобками, чтобы правильно расставить приритеты, я уже вообще молчу...

[FleXik]

решил проблему, не спал всю ночь туплю сильно, тему офф.