Sin conocer el componente yo lo dejaría así:
procedure TepSchemeForm.DoMin(Sender: TObject);
begin
if (Owner is TForm) then
if (Owner as TForm).WindowState <> wsMinimized then
(Owner as TForm).WindowState := wsMinimized
else
(Owner as TForm).WindowState := wsNormal;
end;
procedure TepSchemeForm.DoMax(Sender: TObject);
begin
if (Owner is TForm) then
if (Owner as TForm).WindowState <> wsMaximized then
(Owner as TForm).WindowState := wsMaximized
else
(Owner as TForm).WindowState := wsNormal;
end;
A ver si hay suerte.
Un Saludo.
|