Fórum MDI #172885
03/08/2003
0
Como faço para quando em uma aplicação MDI, já estiver aberta uma janela, se for chamada novamente a janela no menu, abra a janela aberta, não permitindo criar novamente outra janela para a mesma.
Nogueira
Curtir tópico
+ 0
Responder
Posts
04/08/2003
Werlon Goulart
Tente ai...
Um Abraco
Werlon Goulart
procedure TfrmOrderEntryMain.mntmSuppliersClick(Sender: TObject);
var
OldCursor : TCursor;
i : integer;
begin
for i := 0 to MDIChildCount - 1 do
begin
if MDIChildren[i] is TfrmSuppliers then
begin
MDIChildren[i].Show;
Exit;
end; // if
end; // for
OldCursor := Screen.Cursor;
Screen.Cursor := crHourglass;
try
frmSuppliers := TfrmSuppliers.Create( Application );
finally
Screen.Cursor := OldCursor;
end; // try..finally
end;
Um Abraco
Werlon Goulart
procedure TfrmOrderEntryMain.mntmSuppliersClick(Sender: TObject);
var
OldCursor : TCursor;
i : integer;
begin
for i := 0 to MDIChildCount - 1 do
begin
if MDIChildren[i] is TfrmSuppliers then
begin
MDIChildren[i].Show;
Exit;
end; // if
end; // for
OldCursor := Screen.Cursor;
Screen.Cursor := crHourglass;
try
frmSuppliers := TfrmSuppliers.Create( Application );
finally
Screen.Cursor := OldCursor;
end; // try..finally
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)