Ajuda, Controle de Form....

Question

Caros amigos estou com o seguinte problema. Ao mandar um Form Minimizar, eu preciso passar a propriedade FormStyle de fsMDIChild, para fsStayOnTop, e hora que eu mandar restaurar o tamanho, ele deve p...

Jc_analista · Answer

procedure TFrmmenu.WMSysCommand(var Msg: TWMSysCommand);
var
h:hwnd;
begin
if (Msg.CmdType = SC_MINIMIZE) then
form1.formstyle=fsstayontop;

if (Msg.CmdType = SC_MAMIXIZE) then
form1.formstyle=fsMDIchild;

DefaultHandler(Msg);
end;

Luiz.claudio.vieira · Answer

Muito Obrigado colega....  :P...

Luiz.claudio.vieira · Answer

Caro amigo, desculpa a ignor�ncia, mas n�o consegui usar o c�digo! Ele vai em qual form?! O Mae ou o filho?! Como utilizo procedures?!Um abra�o e me desculpe a ignor�ncia mais 1 vez......

Jc_analista · Answer

Coloque no form m�e....

Luiz.claudio.vieira · Answer

E pq ele aparece a mensagem de erro ao tentar compilar: �undeclared indetifier: WMSysCommand�? como resolvo isso?! Atenciosamente Luiz Claudio V. Santos...

Martins · Answer

[quote:93974c331f=�luiz.claudio.vieira�]E pq ele aparece a mensagem de erro ao tentar compilar: �undeclared indetifier: WMSysCommand�? como resolvo isso?! Atenciosamente Luiz Claudio V. Santos[/quote:93974c331f]Veja[code:1:93974c331f]procedure TFrmmenu.WMSysCommand(var Msg: TWMSysCommand); var h:hwnd; begin if (Msg.CmdType = SC_MINIMIZE) then form1.formstyle=fsstayontop; if (Msg.CmdType = SC_MAMIXIZE) then form1.formstyle=fsMDIchild; DefaultHandler(Msg); end;[/code:1:93974c331f]Esta � uma procedure [b:93974c331f]WMSysCommand(var Msg: TWMSysCommand);[/b:93974c331f]ent�o se vc fizer assim:[code:1:93974c331f]unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTFrmmenu = class(TForm)private{ Private declarations }procedure WMSysCommand(var Message : TWMSysCommand) ;public{ Public declarations }end;varFrmmenu: TFrmmenu;implementation{$R *.dfm}procedure TFrmmenu.WMSysCommand(var Msg: TWMSysCommand); var h:hwnd; begin if (Msg.CmdType = SC_MINIMIZE) then frmmenu.formstyle=fsstayontop; if (Msg.CmdType = SC_MAMIXIZE) then frmmenu.formstyle=fsMDIchild; DefaultHandler(Msg); end;end.[/code:1:93974c331f]Espero q funcione agora!...

Luiz.claudio.vieira · Answer

Ai Martins, agora mudou o erro, esta ocasionando o seguinte erro!

Declaration of �WMSysCommand� differs from previous declaration

Desculpa se o erro e coisa banal, e pq eu ainda estou meio verde em procedures...

Massuda · Answer

Como WMSysCommand n�o � uma simples procedure, mas sim um tratador de mensagens do Windows, o jeito correto de declarar essa procedure �

type 
  TFrmmenu = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; 
    // ...

Tanto WM_SYSCOMMAND como TWMSysCommand s�o declarados na unit Messages.

Massuda · Answer

[quote:82bf35a720=�luiz.claudio.vieira�]Declaration of �WMSysCommand� differs from previous declaration[/quote:82bf35a720]Isso est� acontecendo porque na interface o argumento est� como �Message�[code:1:82bf35a720]procedure WMSysCommand(var Message : TWMSysCommand) ; [/code:1:82bf35a720] e na implementa��o est� como �Msg�[code:1:82bf35a720]procedure TFrmmenu.WMSysCommand(var Msg: TWMSysCommand);[/code:1:82bf35a720]Deixe os dois iguais (sugest�o: use �Msg�) que resolve....

Luiz.claudio.vieira · Answer

Ai galera o codigo compilou mais n�o funcionou n�o, ora que minimizo o Form ele n�o muda a propriedade do mesmo, nem quando eu maximizo... Pq ser�?  :(...

Luiz.claudio.vieira · Answer

Bom amigos, depois de tanto encher o saco de vcs consegui resolver o problema e colocar o codigo pra funcionar, muito obrigado a todos......

F�rum Ajuda, Controle de Form.... #261362