Restaurar um form minimizado com tecla F2
Caros colegas,
eu tenho um form c/ o botao <maximizar> desabilitado e o botao <restaurar> habilitado, como faço para restaura-lo na tela quando o usuário aperta o F2 logo após de te-lo minimiza-lo.
eu tenho um form c/ o botao <maximizar> desabilitado e o botao <restaurar> habilitado, como faço para restaura-lo na tela quando o usuário aperta o F2 logo após de te-lo minimiza-lo.
Mprocha
Curtidas 0
Respostas
Henry
30/12/2003
Brother, tem um jeito mais facil, mas eu faço assim....
Pegue o valor da tecla F2 com essa rotina aqui...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.caption:=format(´O código da tecla pressionada é: ¬d´, [key]);
end;
Ae no evento desejado, vc coloca essa rotina aqui...
form1.top:= (Numero inteiro aonde vai fica o topo do form);
form1.left:= (Numero inteiro aonde vai fica a esquerda do form);
Se vc quise maximiza, vc acrescenta assim:
form1.width:= 800;
form1.height:= 600;
Isso se sua configuração for 800x600 se for 1024, vc atribui os valores da configuração atual, blz?
Qualquer coisa me da um toque no ICQ, 221075981.
Um abraço, Henry.
Pegue o valor da tecla F2 com essa rotina aqui...
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.caption:=format(´O código da tecla pressionada é: ¬d´, [key]);
end;
Ae no evento desejado, vc coloca essa rotina aqui...
form1.top:= (Numero inteiro aonde vai fica o topo do form);
form1.left:= (Numero inteiro aonde vai fica a esquerda do form);
Se vc quise maximiza, vc acrescenta assim:
form1.width:= 800;
form1.height:= 600;
Isso se sua configuração for 800x600 se for 1024, vc atribui os valores da configuração atual, blz?
Qualquer coisa me da um toque no ICQ, 221075981.
Um abraço, Henry.
GOSTEI 0
Mprocha
30/12/2003
legal Henry ! :D
e eu fiz assim :
if assigned(form1) then
form1.WindowState := wsNormal
else
begin
application.createform(Tform1, Form1);
form1.show;
end;
Se existir eu o ativo novamente se não eu o crio;
a principio deu certo, só não sei se irá implicar em outra coisa.
Obrigado Henry sua idéia é muito boa, vou usa-la em uma outra situação complicada que tenho aqui.
um abraço,
Marcos Rocha
Bragança Paulista - SP
e eu fiz assim :
if assigned(form1) then
form1.WindowState := wsNormal
else
begin
application.createform(Tform1, Form1);
form1.show;
end;
Se existir eu o ativo novamente se não eu o crio;
a principio deu certo, só não sei se irá implicar em outra coisa.
Obrigado Henry sua idéia é muito boa, vou usa-la em uma outra situação complicada que tenho aqui.
um abraço,
Marcos Rocha
Bragança Paulista - SP
GOSTEI 0
Henry
30/12/2003
o Brother, precisa tamo ai pra o que der e vier, blz?? Meu ICQ é 221075981.
Abraços, Henry.
Abraços, Henry.
GOSTEI 0