{Это надо вставить в обрабочик нажатия клавиши}
if ( ListBox1.Items.Strings[ListBox1.ItemIndex] = "123") then
begin
{Здесь то, что ты хочешь сделать}
end;
ListBox
например в ListBox написано Button1.Enabled:=False и например Panel1.color:=clred . Как сделать чтобы Button1 стал Enabled:=False и Panel1 стал красным? Если можно, то поподробнее, пожалуйста
Цитата:
Originally posted by Vano
например в ListBox написано Button1.Enabled:=False и например Panel1.color:=clred . Как сделать чтобы Button1 стал Enabled:=False и Panel1 стал красным? Если можно, то поподробнее, пожалуйста
например в ListBox написано Button1.Enabled:=False и например Panel1.color:=clred . Как сделать чтобы Button1 стал Enabled:=False и Panel1 стал красным? Если можно, то поподробнее, пожалуйста
Ты хочешь, чтобы твоя программа понимала скрипты, похожие на pascal? Или что? Понять тебя тяжело невыразимо.
Например в какой-нибудь строке в ListBox появляется например 123, как сделать так чтобы при появлении этой надписи происходило какое-нибудь действие при нажатии на кнопку?
Цитата:
Originally posted by Vano
Например в какой-нибудь строке в ListBox появляется например 123, как сделать так чтобы при появлении этой надписи происходило какое-нибудь действие при нажатии на кнопку?
Например в какой-нибудь строке в ListBox появляется например 123, как сделать так чтобы при появлении этой надписи происходило какое-нибудь действие при нажатии на кнопку?
Код:
Теперь если во время нажатия кнопки выделена строка ListBox'а со строкой "123" выполняться твои действия. Если нужно обрабатывать много строк - юзай case.
Это тебе надо было?
Кстати, кстати..
недавно столкнулся с проблемой.
Case отказался обрабатывать весь этот хлам:
После этого проникся подозрением, что case не умеет работать со строками.
С char нормально, с integer - тоже, а вот со строками...
Может у меня где-то ошибка?
недавно столкнулся с проблемой.
Case отказался обрабатывать весь этот хлам:
Код:
case edit1.text of
'la': showmessage('la');
'lala': showmessage('lala');
и так далее...
end;
'la': showmessage('la');
'lala': showmessage('lala');
и так далее...
end;
После этого проникся подозрением, что case не умеет работать со строками.
С char нормально, с integer - тоже, а вот со строками...
Может у меня где-то ошибка?
Цитата:
Originally posted by p01
Кстати, кстати..
недавно столкнулся с проблемой.
Case отказался обрабатывать весь этот хлам:
После этого проникся подозрением, что case не умеет работать со строками.
С char нормально, с integer - тоже, а вот со строками...
Может у меня где-то ошибка?
Кстати, кстати..
недавно столкнулся с проблемой.
Case отказался обрабатывать весь этот хлам:
Код:
case edit1.text of
'la': showmessage('la');
'lala': showmessage('lala');
и так далее...
end;
'la': showmessage('la');
'lala': showmessage('lala');
и так далее...
end;
После этого проникся подозрением, что case не умеет работать со строками.
С char нормально, с integer - тоже, а вот со строками...
Может у меня где-то ошибка?
Почитай внимательно справку по Delphi. Там написано: is any expression of an ordinal type (string types are invalid), что примерно можно перевести, как: любое выражение простого типа (за иключением строкового)