Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Послать нажатие символьных клавиш 
V
    Опции темы
Данкинг
Дата 23.3.2010, 17:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(Keeper89 @  23.3.2010,  15:46 Найти цитируемый пост)
Необязательно, можно вставлять в Едит буквы в зависимости от нажатого шифта (проверять в LabelClick через GetKeyState). 

Не понял, а как это с .Caption связать? smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 24.3.2010, 00:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Цитата(Данкинг @  23.3.2010,  17:51 Найти цитируемый пост)
Не понял, а как это с .Caption связать?

Например так:
Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure LabelClick(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: char;
  j: Integer;
begin
  // Произвольное заполнение буквами
  j := 1;

  for i := 'a' to 'z' do
    with TLabel.Create(Self) do
    begin
      Name := 'Label' + i;
      Parent := Self;
      Caption := i;
      Width := Canvas.TextWidth(Caption);
      Height := Canvas.TextHeight(Caption);
      Left := 10;
      Top := j * Height;
      Visible := True;
      OnClick := LabelClick;
      inc(j);
    end;
end;

procedure TForm1.LabelClick(Sender: TObject);
var
  myChar: string;
begin
  // Нажимаем
  
  myChar := (Sender as TLabel).Caption;

  if ((GetKeyState(VK_SHIFT) and 128) = 128) then
    myChar := AnsiUpperCase(myChar);
  RichEdit1.Perform(WM_CHAR,
                    Ord(myChar),
                    0)
end;
end.

По идее можно было бы вообще накидать на форме виртуальную клавиатуру с учетом всех символов smile

Это сообщение отредактировал(а) Keeper89 - 24.3.2010, 00:29


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 24.3.2010, 00:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(Keeper89 @  24.3.2010,  00:27 Найти цитируемый пост)
Например так:

Попробовал сейчас. Работает, но не со всеми армянскими буквами. smile Так что, видимо, придётся всё же дополнительные метки рисовать.

Цитата(Keeper89 @  24.3.2010,  00:27 Найти цитируемый пост)
По идее можно было бы вообще накидать на форме виртуальную клавиатуру с учетом всех символов 

Ну так это можно и в "ворде" набирать с таким же успехом. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 24.3.2010, 00:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Цитата(Данкинг @  24.3.2010,  00:38 Найти цитируемый пост)
Ну так это можно и в "ворде" набирать с таким же успехом.

Не, я имею ввиду только строчные, а прописные ставить в зависимости от шифта.


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Данкинг
Дата 24.3.2010, 00:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Ладно, в общем, тема ещё раз закрыта, всем ещё раз спасибо. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
former
Дата 24.3.2010, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Данкинг, а может в Tag-ах Lable-ов хранить коды символов? Например, сделать двумерный массив констант (в первой строке символ, во-второй - код) и создавать динамически Lable-ы, заполняя из этого массива свойства Caption и Tag.

Это сообщение отредактировал(а) former - 24.3.2010, 09:21


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Данкинг
Дата 24.3.2010, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(former @  24.3.2010,  09:14 Найти цитируемый пост)
а может в Tag-ах Lable-ов хранить коды символов?

Для этого сначала ещё надо определить, какому армянскому символу соответствует какой латинский символ, и ничего не перепутать. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
former
Дата 24.3.2010, 13:01 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


MEMS Expert
***


Профиль
Группа: Завсегдатай
Сообщений: 1166
Регистрация: 1.3.2006
Где: Россия

Репутация: 5
Всего: 17
Цитата(Данкинг @  24.3.2010,  11:42 Найти цитируемый пост)
Для этого сначала ещё надо определить, какому армянскому символу соответствует какой латинский символ, и ничего не перепутать.
  smile smile

Добавлено @ 13:11
Данкинг, один раз сделаешь и все. Его (массив) можно даже в файле с юникодом хранить. Захочешь другой язык использовать, просто поменяешь файл. А количество создаваемых Lable-ов при этом будет изменяться динамически, в зависимости от размера массива, а не фиксировано.

Это сообщение отредактировал(а) former - 24.3.2010, 13:14


--------------------
Достаточно снизить уровень мышления, чтобы иные почувствовали почву под ногами.
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0895 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.