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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Формы и едиты 
:(
    Опции темы
Loser
Дата 21.12.2007, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 17.10.2007

Репутация: нет
Всего: нет
Подскажите пожалуйста:
1. Есть ли свойство у едитов, которое позволяет контролировать тип вводимых данных (тест, числа и т.д.)? 

2ю Пишу в обработчике кнопки 
Form.Create и он выдает ошибку. Так делать нельзя? тогда как перейти на форму если ее не добавлять в автокреейт?
PM MAIL   Вверх
Akella
Дата 21.12.2007, 22:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 8
Всего: 329
OnKeyDown
OnKeyPress
на форуме это не раз обсуждалось, поищи в общих вопросах или в DRKB
PM MAIL   Вверх
Exai1e
Дата 21.12.2007, 23:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 30
типа
Код

if not (Key in ['0'..'9', ',' , '.' , #8]) then Key := #0;


Это сообщение отредактировал(а) Exai1e - 22.12.2007, 12:43


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Loser
Дата 21.12.2007, 23:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 17.10.2007

Репутация: нет
Всего: нет
Akella, Exai1e, спасибо
а зачем #8? что это значит?
кстати, текст почему то введеный удалить нельзя
и кто может помочь с формами?
PM MAIL   Вверх
Exai1e
Дата 22.12.2007, 00:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 30
#8 это и есть кнопка "<---" (delete)
можно удалить, ток что проверял smile навсякий случай ;)

Добавлено @ 00:05
По поводу формы: Наверно у тя форма стоит в авто креате, убери ее оттуда и попробуй

Код

  Application.CreateForm(TForm2, Form2);


Это сообщение отредактировал(а) Exai1e - 22.12.2007, 00:10


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
VICTAR
Дата 22.12.2007, 01:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80
#8 это код не Delete, а BackSpace
PM MAIL   Вверх
Exai1e
Дата 22.12.2007, 11:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 30
ыы ну да, думал про кнопку backspace а написал delete smile


--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
Loser
Дата 22.12.2007, 12:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 17.10.2007

Репутация: нет
Всего: нет
Exai1e, огромное спасибо!!!
жалко что "+" не могу поставить

ЗЫ а есть полный список кодов кнопочек? интересуют стрелочки влево, вправо

Это сообщение отредактировал(а) Loser - 22.12.2007, 12:46
PM MAIL   Вверх
mr.Anderson
Дата 22.12.2007, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


iOS Lead Developer
****


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

Репутация: 3
Всего: 128
Loser, есть. Была где-то на форуме по Builder... Сейчас найду...

Не нашел. Видать, удалили уже. Где-то в FAQ должно быть, поищи.

Это сообщение отредактировал(а) mr.Anderson - 22.12.2007, 16:23


--------------------
user posted image

user posted image
PM MAIL ICQ Skype   Вверх
lukas
Дата 22.12.2007, 17:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 771
Регистрация: 23.2.2007

Репутация: 3
Всего: 15
ну там помоему только 2 основные #13 - Enter #8 - Backspace... 

а форуму, да и все объекты нужно создавать так:

Form:=TForm.Create;



--------------------
http://code.google.com/p/orionphp/ - opensource скриптовой язык Orion (аналог PHP) для freepascal/delphi.
PM MAIL WWW   Вверх
Loser
Дата 22.12.2007, 18:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 17.10.2007

Репутация: нет
Всего: нет
Помогите справиться еще с одной проблемой
Почему может не работатать, точнее во время работы пишет ошибку insert into?
Код

c:='"';
ADOQuery.SQL.Text:='Insert into orders (id_tovar,id_client,date,col) values (' +c+id_tovar+c+ ',' +c+id_client+c+ ','+c+DateTime+c+  ','  +c+col+c+ ')';
ADOQuery.ExecSQL;


Это сообщение отредактировал(а) Loser - 22.12.2007, 18:44
PM MAIL   Вверх
Loser
Дата 22.12.2007, 18:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 17.10.2007

Репутация: нет
Всего: нет
Проблема была в названии поля дата. Видимо слово зарезервированно

Это сообщение отредактировал(а) Loser - 22.12.2007, 19:35
PM MAIL   Вверх
Exai1e
Дата 22.12.2007, 23:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 30
Loser, да скорей всего и не забывай писать тип БД, тип Доступа и т.д. smile на будущее, хоть этот вопрос не в этот раздел и "Одна тема, один вопрос"



--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
VICTAR
Дата 23.12.2007, 01:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 10
Всего: 80
Цитата(Loser @  22.12.2007,  12:33 Найти цитируемый пост)
ЗЫ а есть полный список кодов кнопочек? интересуют стрелочки влево, вправо

Код

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  ShowMessage(IntToStr(Key));
end;


Это сообщение отредактировал(а) VICTAR - 23.12.2007, 01:46
PM MAIL   Вверх
Loser
Дата 23.12.2007, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 28
Регистрация: 17.10.2007

Репутация: нет
Всего: нет
Извиняюсь что пишу здесь, не хочеться создавать новую тему для такого пустякового вопроса:
Можно ли программно вляить на свойство enabled у меня почему то не получаеться. Может есть аналоги этого свойства? 
PM MAIL   Вверх
Exai1e
Дата 23.12.2007, 12:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 2
Всего: 30
Можно smile 
Код

Butto1.Enabled := false;
...
Butto1.Enabled := true;



--------------------
"Решение зависит от выбранного геморроя" © Snowy
"у нас как в армии - либо работает, либо так и задумано"
PM MAIL ICQ   Вверх
pomogite
Дата 24.12.2007, 16:37 (ссылка) | (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 208
Регистрация: 24.3.2006

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

procedure TForm1.Button1Click(Sender: TObject);
    begin
       if label1.Enabled=true then label1.Enabled:=false  else Label1.Enabled:=true;
    end;


Примерно так...

Это сообщение отредактировал(а) pomogite - 24.12.2007, 16:39
PM MAIL   Вверх
Qu1nt
Дата 25.12.2007, 02:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50
pomogite, ужас smile 
Код

Label1.Enabled := not Label1.Enabled;
PM MAIL   Вверх
Olegan
Дата 25.12.2007, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Крутой сисадмин
**


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

Репутация: нет
Всего: 105
Цитата(Loser @ 23.12.2007,  12:10)
Извиняюсь что пишу здесь, не хочеться создавать новую тему для такого пустякового вопроса:
Можно ли программно вляить на свойство enabled у меня почему то не получаеться. Может есть аналоги этого свойства?

А как именно Ты на него влиять то хочешь? Приведи свой пример.

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if button2.Enabled then
    ShowMessage('Enabled') else
    ShowMessage('NOT Enabled');
end;

end.



--------------------
Цитата(Mayk @  18.6.2008,  14:29 Найти цитируемый пост)
/me объявляет Olegan врагом народа

Цитата(gta4kv @  20.6.2008,  22:01 Найти цитируемый пост)
/me объявляет Olegan врагом народа во второй раз

Цитата(localhost @  15.6.2009,  08:45 Найти цитируемый пост)
/me объявляет Olegan врагом народа в третий раз
PM MAIL   Вверх
Страницы: (2) [Все] 1 2 
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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