Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: CL | DM;

Вниз

при выполнении приложения выскакивает ошибка   Найти похожие ветки 

 
vit74 ©   (2005-10-26 10:26) [0]

При попытки выполнить программу выскакивает такая ошибка

project project1.exe raised exception class EInvalid Operation with
message "Connot focus a disabled or invisible window"
Progress stopped. Use step or Run to continue.

Код такой
var
 Form1: TForm1;
  c: String;
  r: String;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.Text:="";
Edit2.Text:="";
Edit1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);

begin
c:="Привет";
Edit1.text:= c;
Edit2.SetFocus;
end;

procedure TForm1.Button2Click(Sender: TObject);

begin
r:="Хорошо";
Edit2.text:= r;
Edit1.Text:="";
Edit1.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

Может кто подскажет причину этой ошибки

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


 
BiN ©   (2005-10-26 10:29) [1]


> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Edit1.Text:="";
> Edit2.Text:="";
> Edit1.SetFocus; перенеси в OnShow
> end;


 
Leonid Troyanovsky ©   (2005-10-26 10:41) [2]


> vit74 ©   (26.10.05 10:26)  

> message "Connot focus a disabled or invisible window"
> Progress stopped. Use step or Run to continue.

> Может кто подскажет причину этой ошибки


Невозможно установить фокус невидимому окну.

Т.е., в OnCreate окно невидимо. Пользуй ActiveControl := Edit1.
Или SetFocusedControl.

--
Regards, LVT.


 
vit74 ©   (2005-10-26 10:47) [3]

BiN ©   (26.10.05 10:29) [1]

> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Edit1.Text:="";
> Edit2.Text:="";
> Edit1.SetFocus; перенеси в OnShow
> end;

Спасибо помогло!


 
Amoeba ©   (2005-10-26 10:51) [4]

Просто сразу установи нужные значения свойства ActiveControl в DesignTime, и тогда не понадобится это делать в RunTime.

Edit1.Text:="";
Edit2.Text:="";

Это также лишнее. Задавать нужно еще при проектировании формы.


 
Ega23 ©   (2005-10-26 13:31) [5]

А вообще нехило TabOrder выставлять правильный. Тогда и проблем таких не будет...



Страницы: 1 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
1-1129891440
DelphiLexx
2005-10-21 14:44
2005.11.13
Движение компонента


1-1129740924
Rav
2005-10-19 20:55
2005.11.13
"Глобальный" перехват исключений


3-1128039182
DimonS
2005-09-30 04:13
2005.11.13
Как запретить вставку пустой строки?


2-1129658185
Darkwing
2005-10-18 21:56
2005.11.13
Можно ли создать БД не имея готовых файлов (исп. TTable и BDE)


3-1128085178
alpine
2005-09-30 16:59
2005.11.13
Как сделать выборку по полю SUM(SUMMA) ?