Cancelar fechamento do form N�o deixar mudar o tamanho

Question

1 - Preciso checar alguns valores no evento OnClose do form. Caso esses valores forem �x� devo cancelar o fechamento do form nesse mesmo evento. D� pra fazer isso?2 - Deixei o Form como maxmized e tir...

Adriano Santos · Answer

Use o onCloseQuery pra isso, � mais f�cil veja:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  A : Integer;

begin
  A := 0;
  CanClose := A = 0;
end;

� s� passar um valor False para o CanClose;

Paullsoftware · Answer

[quote:a77c522a0d=�m@gnun�]1 - Preciso checar alguns valores no evento OnClose do form. Caso esses valores forem �x� devo cancelar o fechamento do form nesse mesmo evento. D� pra fazer isso?
[/quote:a77c522a0d]
nesse caso podemos usar o Evento OnQueryClose como nosso amigo Adriano mencionou. e para tratar e forma mais simples vamos a um exemplo pr�tico:

var
Form1 : TForm1;
TudoCerto : Boolean;//Crie essa variavel de forma global na unit logo abaixo da variavel Form1 : TForm1

no OnCreate mudamos o valor da vari�vel para False, uma vez que o seu form s� vai ser usado para recerber determinados dados, certo?
ent�o

TudoCerto : False;

agora no Evento OnQueryClose do seu form fa�a:

if Not TudoCerto then
 ShowMessage(�Valores Incorretos�);
CanClose := TudoCerto;

Nesse caso para poder fechar o form vc precisa mud� para True no evento que vc faz a checagem dos dados da tela por exemplo:

var
a,b,c:Integer;
a := 1;
b := 2;
c := A + B;
if C < 3 then
 TudoCerto := False;
Close;

[quote:a77c522a0d=�m@gnun�]
2 - Deixei o Form como maxmized e tirei o botao maximizar (para o usuario nao restaura-lo) quando clico duas vezes no form ele diminui e n�o volta mais. Alguem jah deve ter passado por isso, como proceder para que isso nao aconte�a.
[/quote:a77c522a0d]
Quanto a isso eu aconselho a n�o usar a propriedade [b:a77c522a0d]WindowState=WsMaximized[/b:a77c522a0d]
� melhor vc definir qual ser� o tamanho real do seu form, tipo para trabalhar em telas de 800x600 vc faz assim no OnCreate do form:

(*Ajusta a largura atual da tela do usu�rio*)
//Width := Screen.Width; 
(*Ajusta a altura atual da tela do usu�rio*)
//Height:= Screen.Height;
Width := 780;
Height:= 580;

espero ter ajudado :wink:

M@gnun · Answer

obrigado adriano santos e paullsoftware eu testei a dica do onclosequery e realmente o form nao foi fechado.

porem pro meu caso nao deu certo, pois eu tenho �sempre� que entrar no ovento onclose do form, e do jeito q vcs disseram, o evento nao eh disparado. Eu fiz uns testes aqui e vi q se no proprio evento onclose eu passar o parametro Action := caNone o form nao eh fechado e o evento eh disparado. Entao essa alternativa vai ser melhor no meu caso...

quanto a segunda pergunta:

paullsoftware quando vc disse

(*Ajusta a largura atual da tela do usu�rio*)
//Width := Screen.Width;
(*Ajusta a altura atual da tela do usu�rio*)
//Height:= Screen.Height;
Width := 780;
Height:= 580;

� pra colocar o // antes de
width := Screen... e heigh := Screen...
???
valeu...

Adriano Santos · Answer

[quote:795d10ecae=�m@gnun�]obrigado adriano santos e paullsoftware eu testei a dica do onclosequery e realmente o form nao foi fechado.

porem pro meu caso nao deu certo, pois eu tenho �sempre� que entrar no ovento onclose do form, e do jeito q vcs disseram, o evento nao eh disparado. Eu fiz uns testes aqui e vi q se no proprio evento onclose eu passar o parametro Action := caNone o form nao eh fechado e o evento eh disparado. Entao essa alternativa vai ser melhor no meu caso...

quanto a segunda pergunta:

paullsoftware quando vc disse

(*Ajusta a largura atual da tela do usu�rio*)
//Width := Screen.Width;
(*Ajusta a altura atual da tela do usu�rio*)
//Height:= Screen.Height;
Width := 780;
Height:= 580;

� pra colocar o // antes de
width := Screen... e heigh := Screen...
???
valeu...[/quote:795d10ecae]

Retire as �spas [b:795d10ecae]m@gnun[/b:795d10ecae], acho que foi erro de digita��o.

Paullsoftware · Answer

[quote:ef8488d219=�Adriano Santos�][quote:ef8488d219=�m@gnun�]obrigado adriano santos e paullsoftware eu testei a dica do onclosequery e realmente o form nao foi fechado.

porem pro meu caso nao deu certo, pois eu tenho �sempre� que entrar no ovento onclose do form, e do jeito q vcs disseram, o evento nao eh disparado. Eu fiz uns testes aqui e vi q se no proprio evento onclose eu passar o parametro Action := caNone o form nao eh fechado e o evento eh disparado. Entao essa alternativa vai ser melhor no meu caso...

quanto a segunda pergunta:

paullsoftware quando vc disse

(*Ajusta a largura atual da tela do usu�rio*)
//Width := Screen.Width;
(*Ajusta a altura atual da tela do usu�rio*)
//Height:= Screen.Height;
Width := 780;
Height:= 580;

� pra colocar o // antes de
width := Screen... e heigh := Screen...
???
valeu...[/quote:ef8488d219]

Retire as �spas [b:ef8488d219]m@gnun[/b:ef8488d219], acho que foi erro de digita��o.[/quote:ef8488d219]
N�o, n�o foi um erro de digita��o...
Fazendo dessa forma:

Width := Screen.Width; 
Height:= Screen.Height;

voc� ajusta o form a largura/altura da tela atual...

Fazendo dessa forma:

Width := 780; 
Height:= 580;

voc� ajusta a uma determinada largura da tela especificada por voc�, no exemplo mostrei para ajustar a telas configuradas como 800x600, deu pra entender agora?

[quote:ef8488d219=�m@gnun�]porem pro meu caso nao deu certo, pois eu tenho �sempre� que entrar no ovento onclose do form, e do jeito q vcs disseram, o evento nao eh disparado. Eu fiz uns testes aqui e vi q se no proprio evento onclose eu passar o parametro Action := caNone o form nao eh fechado e o evento eh disparado. Entao essa alternativa vai ser melhor no meu caso...[/quote:ef8488d219]
n�o entendi, porque n�o pode usar o OnQueryClose do form?

Adriano Santos · Answer

[quote:e33d0722a3=�paullsoftware�]N�o, n�o foi um erro de digita��o...[/quote:e33d0722a3]Puts, pode crer...N�o foi erro de digita��o, nem reparei que o c�digo estava em �duas� vers�es, foi malz Paul.[quote:e33d0722a3=�paullsoftware�]n�o entendi, porque n�o pode usar o OnQueryClose do form?[/quote:e33d0722a3]Pode crer, porque n�o usar todo o algoritimo que voc� preparou para o onClose no onCloseQuery?...

Paullsoftware · Answer

[quote:6906ec6cc4=�Adriano Santos�]Pode crer, porque n�o usar todo o algoritimo que voc� preparou para o onClose no onCloseQuery?[/quote:6906ec6cc4]vamos esperar que ele tire a nossa d�vida  :lol:...

F�rum Cancelar fechamento do form N�o deixar mudar o tamanho #320839