Тема: PageControl
Показать сообщение отдельно
  #2  
Старый 09.04.2012, 08:41
Аватар для ALexandr555
ALexandr555 ALexandr555 вне форума
Специалист
 
Регистрация: 09.10.2010
Адрес: Тольятти
Сообщения: 803
Версия Delphi: Delphi 7
Репутация: 2064
По умолчанию

по второму
Код:
procedure TForm1.FormShow(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
end;

а в первом не так должно быть?
Код:
if DM.TPriemPerevod.Modified then
 begin
  DM.TPriemPerevod.Post;
  DM.TPriemPerevod.Append;
  DBEdit48.SetFocus;
 end;
Ответить с цитированием