Добрый день! У меня небольшая проблема: есть Form и Label по середине. Нужно, чтобы при нажатии на этот Label пользователь ввел кнопку в пределах от 0 до 9. На языке Паскаля это будет выглядеть так:
Код
uses crt; var c:char; begin repeat c:=readkey; until (c>'0') and (c<'9'); end.
klem4, спасибо за столь быстрый ответ! Вот точнее: как только на Label кликнули, его Caption становиться '?' и програма начинает ждать, пока пользователем не будет нажана клавиша в пределах от '0' до '9'. Когда это происходит, Label.Caption меняется на на нажатую цифру.
waiting: tlabel; // <--- Ожидающий нажатия Label procedure get_ready(sender: tobject); public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
// Это то, что должно происходить по onClick на Label ... procedure tform1.get_ready(sender: tobject); var key: char; begin waiting := (sender as tlabel); waiting.Caption := '?'; end;
procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin // присвоить всем лейблам на форме нужный onClick ... for i := 0 to componentcount - 1 do if components[i] is tlabel then (components[i] as tlabel).OnClick := get_ready;
// Никто ничего не ждет, пока не выбран Label waiting := nil; end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key in ['0' .. '9'] then if waiting <> nil then begin // Кто-то ждет нажатия ... waiting.Caption := key; waiting := nil; // Прекратить ожидание end; end;