PageControl - Como evitar a saída de uma página.

[deivis 0]

Gostaria de saber como é que faço para proibir o usuário mudar de páginas dentro de um PageControl, até que o mesmo salve os registros.Atenciosamente, Deivis.

[Hugo Slepicka 0]

você pode fazer da seguinte forma:1- da visible false nas outras abas...

tabpesquisa.tabvisible := false;

2- ver pelo status da tabela:

if TblCliente.State in [dsEdit, dsInsert] thenBegin PageControl1.ActivePage := TabClientes; showmessage('Salva aew!!!');End;

[marcio.theis 3]

Outra forma que pode fazer é usando as propriedades do TPageControl, no Evento OnChanging pode fazer algo do tipo:

 

if btnSalvar.Enabled then	begin	AllowChange:=False;	ShowMessage('Registro se encontra em estado de inserção/edição, primeiro deve-se salvar o mesmo !');	end;

No caso se o btnSalvar estiver habilitado, ele não deixa mudar de TabSheet

[Ivolnei 0]

Já havia tentando de outras formas, mas essa é a mais eficiente, funciona bem!

 

Outra forma que pode fazer é usando as propriedades do TPageControl, no Evento OnChanging pode fazer algo do tipo:

 

if btnSalvar.Enabled then	begin	AllowChange:=False;	ShowMessage('Registro se encontra em estado de inserção/edição, primeiro deve-se salvar o mesmo !');	end;

No caso se o btnSalvar estiver habilitado, ele não deixa mudar de TabSheet