Desabilitar maximizar e minimizar ...
Como faço para desabilitar o minimizar e o maximizar do fsMDIChild quando o windowstate está wsMaximized. Porque quando ele não está maximizado funciona as propriedades do borderIcons ...
Valew!!
Valew!!
Cicerojr
Curtidas 0
Respostas
Cicerojr
28/10/2004
alguém sabe???
GOSTEI 0
Cicerojr
28/10/2004
Alguém Sabe??
GOSTEI 0
Cicerojr
28/10/2004
alguem sabe??
GOSTEI 0
Cicerojr
28/10/2004
alguém sabe??
GOSTEI 0
Christian_adriano
28/10/2004
Caro Colega,
vc pode fazer da seguinte forma :
{********************* Botão Fechar **************************}
function DesabilitarBotaoFECHAR(Form : TForm) : Boolean;
var
hfechar: THANDLE;
hMenuFechar: HMenu;
begin
hfechar := Form.Handle;
if (hfechar <> 0) then
begin
hMenuFechar := GetSystemMenu(hfechar, FALSE);
if (hMenuFechar <> 0) then
DeleteMenu(hMenuFechar, SC_CLOSE, MF_BYCOMMAND);
end;
Result := false;
end;
{********************* Botão Maximizar ***********************}
function DesabilitarBotaoMAXIMIZAR(Form : TForm) : Boolean;
var
hMAXIMIZAR: THANDLE;
hMenuMAXIMIZAR: HMenu;
begin
hMAXIMIZAR := Form.Handle;
if (hMAXIMIZAR <> 0) then
begin
hMenuMAXIMIZAR := GetSystemMenu(hMAXIMIZAR, FALSE);
if (hMenuMAXIMIZAR <> 0) then
DeleteMenu(hMenuMAXIMIZAR, SC_MAXIMIZE, MF_BYCOMMAND);
end;
Result := false;
end;
{********************* Botão Minimizar ***********************}
function DesabilitarBotaoMINIMIZE(Form : TForm) : Boolean;
var
hMINIMIZE: THANDLE;
hMenuMINIMIZE: HMenu;
begin
hMINIMIZE := Form.Handle;
if (hMINIMIZE <> 0) then
begin
hMenuMINIMIZE := GetSystemMenu(hMINIMIZE, FALSE);
if (hMenuMINIMIZE <> 0) then
DeleteMenu(hMenuMINIMIZE, SC_MINIMIZE, MF_BYCOMMAND);
end;
Result := false;
----------------------
Para usa-lo é só vc informa qual é o forma q vc deseja desabilita-lo.
Ex. DesabilitarBotaoMAXIMIZAR(FormClientes);
Espero ter ajudado.
[]´s.
Christian.
end;
vc pode fazer da seguinte forma :
{********************* Botão Fechar **************************}
function DesabilitarBotaoFECHAR(Form : TForm) : Boolean;
var
hfechar: THANDLE;
hMenuFechar: HMenu;
begin
hfechar := Form.Handle;
if (hfechar <> 0) then
begin
hMenuFechar := GetSystemMenu(hfechar, FALSE);
if (hMenuFechar <> 0) then
DeleteMenu(hMenuFechar, SC_CLOSE, MF_BYCOMMAND);
end;
Result := false;
end;
{********************* Botão Maximizar ***********************}
function DesabilitarBotaoMAXIMIZAR(Form : TForm) : Boolean;
var
hMAXIMIZAR: THANDLE;
hMenuMAXIMIZAR: HMenu;
begin
hMAXIMIZAR := Form.Handle;
if (hMAXIMIZAR <> 0) then
begin
hMenuMAXIMIZAR := GetSystemMenu(hMAXIMIZAR, FALSE);
if (hMenuMAXIMIZAR <> 0) then
DeleteMenu(hMenuMAXIMIZAR, SC_MAXIMIZE, MF_BYCOMMAND);
end;
Result := false;
end;
{********************* Botão Minimizar ***********************}
function DesabilitarBotaoMINIMIZE(Form : TForm) : Boolean;
var
hMINIMIZE: THANDLE;
hMenuMINIMIZE: HMenu;
begin
hMINIMIZE := Form.Handle;
if (hMINIMIZE <> 0) then
begin
hMenuMINIMIZE := GetSystemMenu(hMINIMIZE, FALSE);
if (hMenuMINIMIZE <> 0) then
DeleteMenu(hMenuMINIMIZE, SC_MINIMIZE, MF_BYCOMMAND);
end;
Result := false;
----------------------
Para usa-lo é só vc informa qual é o forma q vc deseja desabilita-lo.
Ex. DesabilitarBotaoMAXIMIZAR(FormClientes);
Espero ter ajudado.
[]´s.
Christian.
end;
GOSTEI 0
Cicerojr
28/10/2004
Muitíssimo obridado ... valeu mesmo!!
GOSTEI 0