botão de minimizar

[tiagocaus 1]

Olá...

 

fiz um pequeno programa e gostaria q quamdo a pessoa clicasse no boão fechar, o programa ñ fecharia mas ficaria minimizado ao lado do relógio (como o MSN e o SkyPE) e para fechar realmente o programa a pessoa teria que clicar com o botão direito do mause e fechar,

 

seria basicamente isso.

 

 

Desde já agradeço sua ajuda.

[lenn0n 0]

eae...

 

negócio eh o seguinte

faz assim

ex:

 

você cria uma variavel global boolean

 

private	{ Private declarations }	fecharOK:Boolean;

dae... no botao q você quer que feche o form você faz isso

 

procedure TForm1.Button1Click(Sender: TObject);begin  fecharOK := true;  close;end;

e no OnClose do Form isso:

 

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin   if not fecharOK then   begin	  Application.minimize;	  abort;   end;end;

explicando...

você cria uma variavel, falando se é ou não pra ele fechar... se ele clicar no X no canto da tela, ele vai passar direto no OnClose.... aí, se a variavel não estiver True, ele vai minimizar, e abortar a operação inicial (o fechamento do form)...

agora, se o cara cilcar no botão que você escolher (um item no menu, por exemplo) ele vai passar true pra variavel, chamar o close, ae qdo ele passar no OnClose, ele vai passar direto e fechar o form

 

pelo menos por enquanto, foi o jeito mais eficiente e rapido q consegui pensar... :wacko:

espero ter ajudado, qualquer duvida eh soh postar novamente http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[]'s