VPF::Как создать форму активной? - Форум программистов

offline

Дата 10.2.2005, 22:51 (ссылка)

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

Загрузка ...

Опытный

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

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

Мастера, у меня вот такой код

Код


procedure TfrmMain.FormCreate(Sender: TObject);
var
 Attributes: word;
begin
...
Attributes := FileGetAttr(MainPath + '1.txt');
if Attributes and $00000001 <> 0 //файл для чтения
  then  Showmessage('Файл только для чтения!');
...
end;

Этот код выполняется при создании формы и если файл 1.txt только для чтения, то выдается сообщение о том, что он для чтения, а затем создается форма.
Проблема в том, что после сообщения форма создается на заднем плане и не активна. Как можно сделать так, чтобы после сообщения, форма (программа) была активна. Передать фокус форме я не могу, т.к. она еще не создана.
Подскажите, как можно решить проблему.

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

Underdark

Дата 11.2.2005, 09:52 (ссылка)

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

Загрузка ...

Шустрый

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

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

А что тебе мешает в файле Project.dpr после вызова процедуры TfrmMain.FormCreate(Sender: TObject);, когда форма уже создана сделать frmMain.SetFocus;? smile

offline

Дата 11.2.2005, 10:34 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо за ответ.
Правда я немного поменял уже код и все работает smile

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