|
Платные хостинги
Раскрутка сайта
Книги по программированию
TOpenDialog
- Нажатие Ecs вроде в факе было, а фильтр, вот пример из книги:Код procedure Tform1.FormCreate(Sender: TObject);begin...Opendialog1.Filter:='Текстовые файлы *.txt|*.txt|Все файлы *.*|*.*';Opendialog.DefaultExt:='TXT'...end;highlightSyntax('delphiMxOTc0','delphi');Значит у тебя OpenDialog.Fileter:='Базы данных *.db|*.db';вроде как
- Из фака:Как сделать чтобы форма закрывалась при нажатии Esc:Для начала необходимо установить свойство формы KeyPreview в True. А потом уже можно отлавливать "Esc": Код procedure TForm1.FormCreate(Sender: TObject); begin Form1.KeyPreview := True; end; procedure TForm1.FormKeyPress (Sender: TObject; var Key: Char); begin if key = #27 then Close; end; highlightSyntax('delphijYzFlM','delphi');т.е код Esc=#27, пониму и славливай Это сообщение отредактировал Victor - 18.2.2004, 14:57
- Свойству DefaultExt присвой значение 'db'. Без точки перед названием расширения.
- Victor, сорри, когда я загрузил страницу, твоего ответа еще не было
- если я правильно понимаю, речь идёт о том, чтобы отловить нажатие Esc в диалоге, а не на форме. т.е. случай, когда пользователь отменяет диалог.в сабж. метод Execute является функцией, который возвращает TRUE, только если диалог был благополучно отработан и закрыт нажатием на "Ok". соответственно, имеем:Код ... if OpenDialog1.Execute then begin Table1.TableName:=OpenDialog1.FileName; Table1.Active:=True; end; ...highlightSyntax('delphiNDE4Y2','delphi');
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
