#Me ajudem por favor

Delphi

20/03/2003

Durante a execução eu abro 3 form´s com as teclas de função, porque eu quero ficar alternando entre elas, mas ela só perimite que eu utilize a ultima janela aberta, se eu quiser ocupar as outras duas o sistema não me permite. Eu fiz da seguinte maneira, vejam se estou errada:
procedure TFrmControleL.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_F9 then
begin
If FrmVendas <> Nil then
FrmVendas.ShowModal
else
begin
FrmVendas:=TFrmVendas.Create(Self);
Try
FrmVendas.ShowModal;
Finally
FrmVendas.Release;
FrmVendas:=Nil;
end;
end;
end;
if key = vk_F10 then
begin
If FrmControleL <> Nil then
FrmControleL.ShowModal
else
begin
FrmControleL:=TFrmControleL.Create(Self);
Try
FrmControleL.ShowModal;
Finally
FrmControleL.Release;
FrmControleL:=Nil;
end;
end;
end;
if key = vk_F11 then
begin
If FrmReservas <> Nil then
FrmReservas.ShowModal
else
begin
FrmReservas:=TFrmReservas.Create(Self);
Try
FrmReservas.ShowModal;
Finally
FrmReservas.Release;
FrmReservas:=Nil;
end;
end;
end;
end;

Cristiane


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

20/03/2003

use SeuForm.Show ao invez de SeuForm.ShowModal


GOSTEI 0
Anonymous

Anonymous

20/03/2003

no tópico abaixo com o titulo ´MDI ? Please !!!´ tem uma resposta que talvez seja uma melhor solução para seu problema ... as janelas abrem como filhas da janela principal facilitando a localização


GOSTEI 0
POSTAR