#Me ajudem por favor
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
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
Curtidas 0
Respostas
Anonymous
20/03/2003
use SeuForm.Show ao invez de SeuForm.ShowModal
GOSTEI 0
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