| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ввод в TMemo [D4]
pasha_64 © (2002-01-27 05:01:00)Как ввести поочередно по одной букве с созданной в форме из TButton клавиатуры , в одну строку компонента TMemo.
Заранее благодарен
Pasha
Johnmen (2002-01-28 13:55:00) [1]>Diana самое красивое решение...
Diana (2002-01-28 13:46:00) [2]Memo1.Lines.Text:=Memo1.Memo1.Lines.Text+TButton(Sender).Caption;
И будет тебе одна строка...
Набережных С. (2002-01-27 11:54:00) [3]Memo1.SelText:=TButton(Sender).Caption[1];
~Sergius (2002-01-27 06:35:00) [4]Ну, если ты и дальше будешь таким образом над русским языком издеваться, то вряд ли кто-нибудь тебя поймет :)
Можно сделать так:
1. Присвой каждому экземпляру TButton свой Tag, от 0 до XX
2. Создай массив (константа) букв:
Const ABC = array [0..XX] of char = ("A","B" ......);
3. Для всех кнопок создай ОДИН обработчик OnKeypressed
4. В обработчике:
var Ch: Char;
begin
Char := ABC[TButton(Sender).Tag];
Memo1.Lines.Add (Ch); // Или что там нужно
end;
| |
