N�o permitir que minimize

Question

Boa tarde!Pessoal, gostaria de saber como fa�o para que ao clicar no bot�o criado pelo windows na barra de tarefas referente ao meu sistema, o mesmo n�o se minimize, ou seja, fazer com que seja imposs...

Dor_poa · Answer

no evento OnClose do form adicione isto:
action := Canone..

mas. Obs . voce n�o podera nem fechar o form.. para poder fechar o form. vc. terar que ter uma variavel de controle.. Ex.:

If PODEFECHAR = TRUE then
Action := Cafree else //Deixa fechar
action := Canone; // nao deixa fechar..

Afb · Answer

Amigo e apenas voce retirar o botao de minimizar do form que o form nunca mais vai ser minimizado o que acontence e que ele pode se restaurar caso vc deixe o o botao que maximize o form.

Caso sua pergunta seja para ele nao se restaurar entao e sou retirar tambem o botao que maximize e ai ele ficara no mesmo tamanho.

Anonymous · Answer

Valeu cara, mas essa fun��o eu j� utilizo, e se n�o estou enganado ela evita que o form seja fechado. Na verdade o que eu preciso � de algo que evite que o sistema seja minimizado ao clicar no bot�o da barra de tarefas.
Valeu!

Anonymous · Answer

Valeu abf, mas na verdade j� tinha retirado todos os bot�es do form (barrade t�tulo), o que eu quero � que ele n�o minimize ao clicar no bot�o do meu sistema na barra de tarefas....

Anonymous · Answer

Fa�a o seguinte:procedure TFrmMain.FormCreate(Sender: TObject);begin  Application.OnMinimize := Exibe;end;procedure TFrmMain.Exibe(Sender: TObject);begin  Application.Restore;end;Veja tb o help do evento OnMinimize, de TApplication. L� tem um exemplo. :lol: Josemar...

Anonymous · Answer

Por um grande acaso voce esta utilizando MDI amigo?...

Anonymous · Answer

Negativo amigo, uso um form normal....

Dor_poa · Answer

cara.. Usa o codigo que te dei no evento onclose.. que resolve tudo......

Anonymous · Answer

Infelizmente j� estou usando este c�digo no evento onClose do form, mas ainda assim continua minimizando......

Josemarlourenco · Answer

Fa�a o seguinte:
procedure TFrmMain.FormCreate(Sender: TObject);
begin
Application.OnMinimize := Exibe;
end;

procedure TFrmMain.Exibe(Sender: TObject);
begin
Application.Restore;
end;

Veja tb o help do evento OnMinimize, de TApplication. L� tem um exemplo. :lol:

Josemar