|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
КОММАНДА через Text Edit
Ребят, как сделать так чтобы
Если Edit1.Text равен 123 , то Button1.Enabled := false; Зарание спасибо! |
#2
|
|||
|
|||
Цитата:
Код:
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; |
#3
|
||||
|
||||
Цитата:
jmp $ ; Happy End! The Cake Is A Lie. |
Этот пользователь сказал Спасибо Bargest за это полезное сообщение: | ||
d1sable (01.06.2012)
|
#4
|
|||
|
|||
А как сделать сравнение!?
|
#5
|
||||
|
||||
Гхм.
Код:
if Edit1.Text = '123' then Button1.Enabled:=false else Button1.Enabled:=true; jmp $ ; Happy End! The Cake Is A Lie. |
#6
|
|||
|
|||
Код:
[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' |
#7
|
||||
|
||||
Она значит, что нужно прочитать какую-нибудь книжку по делфи. Если с каждой такой ошибкой лезть на форум - далеко не уедешь.
Видимо, это ошибка из разряда "накосячил в синтаксисе", а такие ошибки вообще не должны вызывать затруднения. Наверное, "вставил код в прогу", и получилось не туда. jmp $ ; Happy End! The Cake Is A Lie. |
#8
|
|||
|
|||
Текст я некогда не копирую, а насчёт книжек - я читал книги для начинающих, и там об этом написанно ничего небыло
|
#9
|
||||
|
||||
Я не могу ничего сказать без кода и указания, в каких строчках ошибки.
Описание сигнализирует, что с вероятностью 90% написал код не там, забыл begin или end, поставил ; перед ELSE или что-то в этом роде. А это описывается в любой книжке. jmp $ ; Happy End! The Cake Is A Lie. |
#10
|
|||
|
|||
Вот код:
Код:
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 то воспроизводилась только она! |
#11
|
|||
|
|||
Всё Всё Спасибо!! Я понял как сделать - до меня не доходило , а ща подумал , по тестил и т п ! всё спс за помощь, тему можно закрывать!
|
#12
|
||||
|
||||
Видимо, в коде предполагалось наличие BEGIN'ов и END'ов для строк между IF'ами.
jmp $ ; Happy End! The Cake Is A Lie. |
#13
|
|||
|
|||
Я сделал так:
1.Сервер пресылает код!(в данном случае это Play) 2.Клиент получает его, вставляет его в Коммандное меню, исравнивает его с ничем!(пустота) 3.И если в Ком.Меню написана команда Play 4.То клиент переносит мышку на определённое место и кликает по нему! Всё! Спасибо за помощь Bargest за Код:
if Edit1.Text = '123' then Button1.Enabled:=false else Button1.Enabled:=true; и за Цитата:
|