Fórum Restaurar um form minimizado com tecla F2 #203572

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.

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

o Brother, precisa tamo ai pra o que der e vier, blz?? Meu ICQ é 221075981.

Abraços, Henry.