Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];

Вниз

Ввод в TMemo   Найти похожие ветки 

 
pasha_64   (2002-01-27 05:01) [0]

Как ввести поочередно по одной букве с созданной в форме из TButton клавиатуры , в одну строку компонента TMemo.

Заранее благодарен

Pasha


 
~Sergius   (2002-01-27 06:35) [1]

Ну, если ты и дальше будешь таким образом над русским языком издеваться, то вряд ли кто-нибудь тебя поймет :)

Можно сделать так:
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;



 
Набережных С.   (2002-01-27 11:54) [2]

Memo1.SelText:=TButton(Sender).Caption[1];


 
Diana   (2002-01-28 13:46) [3]

Memo1.Lines.Text:=Memo1.Memo1.Lines.Text+TButton(Sender).Caption;
И будет тебе одна строка...


 
Johnmen   (2002-01-28 13:55) [4]

>Diana самое красивое решение...



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.004 c
6-32303
Дремучий
2001-11-19 22:24
2002.02.11
как скачать картинку?


1-32183
Mitrofan
2002-01-25 11:39
2002.02.11
Как синхронно скролировать два Memo or ListBox a


1-32275
-=CrazyFish=-
2002-01-28 16:21
2002.02.11
отчеты


3-32151
ТеньЛуны
2002-01-16 13:14
2002.02.11
CORBA


3-32135
Robby
2002-01-11 15:18
2002.02.11
type в InterBase 6.0





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский