VPF::TEdit. Вид как у калькулятора. - Форум программистов

MaXL

Дата 13.9.2007, 13:01 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

Всем привет. Вообщем такая проблемка: пишу программку, так вот поел ввода должно быть такое как у стандартного виндовс калькулятора(т.е. нельзя выделять ничего и не виден курсор). Пересмотрел все свойства, ничего нашёл(либо плохо смотрел), либо это делается по другому.
Ну и по поводо кнопки Delete. Нужно чтобы когда юзер её жмёт, чтобы выполнялся мой код(определённый) и всё.
Пробовал так:

Код


procedure TMainForm.LanEditKeyPress(Sender: TObject; var Key: Char);
var
  temp: string;
begin
  //........
  if Key = Char(VK_DELETE) then
    begin
      ClearButton.Click();
    end;
  //...........................

Я вот думаю, может быть VK_DELETE не та константа ?

--------------------

MaXL

Alexeis

Дата 13.9.2007, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Может использовать просто TStaticText? Нафиг Edit если нечего редактировать?

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Poseidon

Дата 13.9.2007, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(MaXL @ 13.9.2007, 13:01

)

Ну и по поводо кнопки Delete

Засовывай в OnKeyDown

Код

procedure TMainForm.LanEditKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  temp: string;
begin
  //........
  if Key = VK_DELETE then
    begin
      ClearButton.Click;
    end;
  //...........................

Цитата(MaXL @ 13.9.2007, 13:01

)

пишу программку, так вот поел ввода должно быть такое как у стандартного виндовс калькулятора(т.е. нельзя выделять ничего и не виден курсор)

Просто перенаправляй фокус куда-нить (В калькуляторе перенаправляется на кнопку "=".

Код

procedure TForm1.Edit1Enter(Sender: TObject);
begin
Button1.SetFocus;
end;

Добавлено через 1 минуту и 28 секунд

Цитата(Alexeis @ 13.9.2007, 13:16

)

Может использовать просто TStaticText?

Кстати, хорошая мысль! ;-)

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Alexeis

Дата 13.9.2007, 13:21 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Код


  StaticText1.Alignment := taRightJustify;
  StaticText1.BevelOuter := bvRaised;
  StaticText1.BorderStyle := sbsSunken;
  StaticText1.Color       := clWindow;

Вот и Edit без функций редактирования, но с Windows окном и прочими удобствами.

--------------------

MaXL

Дата 14.9.2007, 05:09 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

Alexeis, спасибо. сделал именно так.

Цитата

Просто перенаправляй фокус куда-нить (В калькуляторе перенаправляется на кнопку "=".

Код


 procedure TForm1.Edit1Enter(Sender: TObject);
begin
Button1.SetFocus;
end;

Я использую TButton, а TSpeedButton. У него такого метода. Но при использовании StaticText такая проблема отпала.
Всем спасибо. Вопрос решён.

--------------------

MaXL

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »