Problem z oknem modalnym

0

mam problem z kodem do uruchamiania okna modalnego... gdy jest

  SendMail:=TSendMail.Create(AOwner);
  Result:=SendMail.ShowModal;
  SendMail.Free;

wszystko jest niby wporządku, działa jak nalerzy itp... ale gdy zmienie na:

  SendMail:=TSendMail.CreateMailer(AOwner, MailInfo, Lines);
  Result:=SendMail.ShowModal;
  SendMail.Free;

pokazuje się "Cannot make visible window modal". oto kod do CreateMailer:

constructor CreateMailer(AOwner: TComponent; MailInfo: THMailInfo;
      Lines: TStrings);overload;

{....}

constructor TSendMail.CreateMailer(AOwner: TComponent; MailInfo: THMailInfo;
  Lines: TStrings);
begin
  inherited;
  FMailInfo:=MailInfo;
  FLines:=TStringList.Create;
  if Assigned(Lines) then
    FLines.Assign(Lines)
  else
    raise Exception.Create('Argument "Lines" not initiated!');
end;

O co tu chodzi? nie mam pojęcia jak to naprawić... pomocy...

0

może spróbuj przed
Result:=SendMail.ShowModal;

wpisać
SendMail.Hide;

0

nic Nie pomogło...

Musze coś jeszcze wykminić, ale nie wiem co.. pomocy!!!!

0

dobra, wykminiłem... wystarczyło zamienić inherited na inherited Create(AOwner) i wszystko jest cacy

1 użytkowników online, w tym zalogowanych: 0, gości: 1