Eigenen MessageDlg verwenden

[DataCool]

@Gollum and Muetze1:

Delphi-Quellcode:

  ARect.Left := lab_Message.Left;
  ARect.Top  := lab_Message.Top;
  DrawText(self.Canvas.Handle,PChar(MsgText),-1,ARect,DT_CALCRECT);
  showmessage('Left: '+inttostr(ARect.Left)+#13#10+
              'Top: '+inttostr(ARect.Top)+#13#10+  
              'Right: '+inttostr(ARect.Right)+#13#10+
              'Bottom: '+inttostr(ARect.Bottom));
  iDiff :=  (ARect.Right - ARect.Left) - lab_Message.Width;
  self.Width := self.Width + iDiff;
  iDiff :=  (ARect.Bottom - ARect.Top) - lab_Message.Height;
  self.Height := self.Height + iDiff;
  lab_Message.Caption := msgText;

Funktioniert leider auch nicht. Teste jetzt nochmal Dax Vorschlag,

Danke und Gruß Data