[d1sable]

Ребят, как сделать так чтобы

Если Edit1.Text равен 123 , то Button1.Enabled := false;

Зарание спасибо!

[d1sable]

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

Ребят, как сделать так чтобы

Если Edit1.Text равен 123 , то Button1.Enabled := false;

Зарание спасибо!

Код:

if CommandLabel.Caption = 'Command : Play' then
Form1.Left:=0;
Form1.Top:=0;
x := 434;
y := 258;
SetCursorPos(x, y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
Application.Restore;
ButtonStop.Enabled:=true;
ButtonPlay.Enabled:=false;

if CommandLabel.Caption = 'Command : Stop' then
Form1.Left:=0;
Form1.Top:=0;
x := 60;
y := 472;
SetCursorPos(x, y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
Application.Restore;
ButtonStop.Enabled:=false;
ButtonPlay.Enabled:=true;

Вот так у меня не прокатывает(Запускаются всеравно обе и сразу)

[Bargest]

Если Edit1.Text равен 123 , то Button1.Enabled := false;

По событию OnChange Edit'а сравнить Edit1.Text с '123'.

[d1sable]

А как сделать сравнение!?

[Bargest]

Гхм.

Код:

if Edit1.Text = '123' then
 Button1.Enabled:=false
else
 Button1.Enabled:=true;

[d1sable]

Код:

[Error] tvo_online.pas(154): 'END' expected but 'ELSE' found
[Error] tvo_online.pas(158): ';' expected but 'IF' found
[Error] tvo_online.pas(196): '.' expected but ';' found
[Fatal Error] tvo_client_project.dpr(5): Could not compile used unit 'tvo_online.pas'

Что бы эта ошибка значила?

[Bargest]

Она значит, что нужно прочитать какую-нибудь книжку по делфи. Если с каждой такой ошибкой лезть на форум - далеко не уедешь.
Видимо, это ошибка из разряда "накосячил в синтаксисе", а такие ошибки вообще не должны вызывать затруднения. Наверное, "вставил код в прогу", и получилось не туда.

[d1sable]

Текст я некогда не копирую, а насчёт книжек - я читал книги для начинающих, и там об этом написанно ничего небыло

[Bargest]

Я не могу ничего сказать без кода и указания, в каких строчках ошибки.
Описание сигнализирует, что с вероятностью 90% написал код не там, забыл begin или end, поставил ; перед ELSE или что-то в этом роде. А это описывается в любой книжке.

[d1sable]

Вот код:

Код:

procedure TForm1.CommandLabelChange(Sender: TObject);

begin

if CommandLabel.Text = 'Command : Start' then
Form1.Left:=0;
Form1.Top:=0;
Application.Restore;
ButtonStop.Enabled:=false;
ButtonPlay.Enabled:=false;

if CommandLabel.Text = ('Command : Play') then
Form1.Left:=0;
Form1.Top:=0;
x := 434;
y := 258;
SetCursorPos(x, y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
Application.Restore;
ButtonStop.Enabled:=true;
ButtonPlay.Enabled:=false;

if CommandLabel.Text = 'Command : Stop' then
Form1.Left:=0;
Form1.Top:=0;
x := 60;
y := 472;
SetCursorPos(x, y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN, x, y, 0, 0);
Mouse_Event(MOUSEEVENTF_LEFTUP, x, y, 0, 0);
Application.Restore;
ButtonStop.Enabled:=false;
ButtonPlay.Enabled:=true;

if CommandLabel.Text = 'Command : Warning' then
Form1.Left:=0;
Form1.Top:=0;
MemoWeb.Lines.Add(TimeToStr(Time));
MemoWeb.Lines.Add('Приготовьтесь, начинаем!');
end;
end.

Проблема в том - что если я в CommandLabel введу любое число букву и т п то воспроизводятся обе комманды!! а мне надо чтоб если Command : Play то воспроизводилась только она!

[d1sable]

Всё Всё Спасибо!! Я понял как сделать - до меня не доходило , а ща подумал , по тестил и т п ! всё спс за помощь, тему можно закрывать!

[Bargest]

Видимо, в коде предполагалось наличие BEGIN'ов и END'ов для строк между IF'ами.

[d1sable]

Я сделал так:

1.Сервер пресылает код!(в данном случае это Play)
2.Клиент получает его, вставляет его в Коммандное меню, исравнивает его с ничем!(пустота)
3.И если в Ком.Меню написана команда Play
4.То клиент переносит мышку на определённое место и кликает по нему!

Всё!

Спасибо за помощь Bargest за

Код:

if Edit1.Text = '123' then
 Button1.Enabled:=false
else
 Button1.Enabled:=true;

и за

По событию OnChange Edit'а