lustig
Дата: 08.10.2004 13:13:11
Привет! В Access у Edita есть событие AfterUpdate. Т.е., когда происходит редактирование ничего не происходит (поэтому OnChange не подходит) и только когда редактирование закончено (грубо говоря, нажали Enter, но можем и мышкой уйти), то происходит событие. У кого какие будут идеи как это сделать в Delphi. Спасибо.
lustig
Дата: 08.10.2004 13:17:20
2 JibSkeart:
1) А если ничего не меняли, то все равно произойдет.
2) Можем не уходить с контрола, просто закончили редактирование (Enter).
lustig
Дата: 08.10.2004 14:10:54
Вот такой гиммор получается:
procedure TForm1.Edit1Enter(Sender: TObject);
begin
Edit1.Tag := 0;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
if Edit1.Tag = 1 then
begin
Bla-Bla;
Edit1.Tag := 0;
end;
end;
procedure TForm1.Edit1Change(Sender: TObject);
begin
Edit1.Tag := 1;
end;
Плюс ещё по Enter на следующий контрол.
Вот така делфя, малята (все равно ее не брошу...).
Если есть событие или сообщение, поправте руки, пожайлуста!..