Yo tenía una unidad que hice en mis primeros momentos en Delphi... al cabo de un tiempo me di cuenta de que era una unidad sin utilidad...
pues se las paso... a lo mejor a alguien le sirva
Código Delphi
[-]unit WindowsUses;
interface
uses Windows, SysUtils, Forms, Messages, Classes;
procedure Mostrar(Forma: TForm;Value:Boolean;PosX,PosY:integer);
procedure ExpandirForma(Forma:TForm;Ancho,Largo:integer);
function FormaCreada(Nombre: String): boolean;
procedure DestruirForma(Forma: TForm);
procedure MinimizarForma(Forma: TForm);
procedure MaximizarForma(Forma: TForm);
procedure RestaurarForma(Forma: TForm);
procedure MinimizarAplicacion;
procedure FinalizarAplicacion;
implementation
procedure Mostrar(Forma: TForm;Value:Boolean;PosX,PosY:integer);
var Ban: Boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban
then begin
with Forma do
begin
Left := PosX;
Top := PosY;
Visible := Value;
end;
end;
end;
procedure ExpandirForma(Forma:TForm;Ancho,Largo:integer);
var Ban: boolean;
begin
ban := FormaCreada(Forma.Name);
if Ban then begin
with Forma do
begin
Height:= Largo;
Width:= Ancho;
end;
end;
end;
function FormaCreada(Nombre: string): boolean;
var Ban: boolean;
i: integer;
begin
Ban := False;
i := 0;
while (Ban = False) and (i<= Screen.FormCount-1) do
begin
if Screen.Forms[i].Name = Nombre
then ban := True
else Inc(i,1);
end;
Result := Ban;
end;
procedure DestruirForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban
then Forma.Destroy;
end;
procedure MinimizarForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban then begin
with Forma do
WindowState := wsMinimized;
end;
end;
procedure MaximizarForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban then begin
with Forma do
WindowState := wsMaximized;
end;
end;
procedure RestaurarForma(Forma: TForm);
var Ban: boolean;
begin
Ban := FormaCreada(Forma.Name);
if Ban then begin
with Forma do
WindowState := wsNormal;
end;
end;
procedure MinimizarAplicacion;
begin
Application.Minimize;
end;
procedure FinalizarAplicacion;
begin
Application.Terminate;
end;
end.
Saludos,