Aufrufenden TFrame erkennen

[HannsW]

Guten Morgen,
ich habe mir aus einem TFrame , einem TLabel, einem TTimer und einem TButton ein nach Ablauf der Zeit selbtsschließende "ShowMessage" programmiert.
Dies funktioniert auch sowite ganz schön; jedoch würde ich die Nachricht gern zentriert im ( über den ) aufrufenden Frame
darstellen, und ich weiß leider nicht wie!

Auf der Bildschirm Mitte klappt, da weiß ich, wessen Breite und Höhe ich in die Rechnung eibeziehen muss.


Eine zweite Frage wäre, wie ich es anstellen kann, daß ich meine "timerMessage" nicht mit ShowModal aufrufen muss, also

Delphi-Quellcode:

// Statt so
timerMessage.Caption := 'Datei-Ende' ; // timerMessage ist instanziiert aber visible false;
timerMessage.showModal;

// würde ich gern so aufrufen.
timerMessage ( 'Datei-Ende');

Danke für Eure Hilfe.

Möger der Schnee keine Internetanbindung zuschneien :zwinker:

[mkinzler]

Delphi-Quellcode:

procedure <Klasse>.timermessage( Owner: TComponent; Text: String);
var
  tm: TTimerMessage;
begin
  try
     tm := TTImerMessage.Create (Owner);
     tm.Caption := Text;
     tm.Left := Owner.Left + ...
     tm.Top := ...
     tm.Showmodal;
  finally
     tm.Free;
  end;
end;

Aufruf:

Delphi-Quellcode:

timerMessage ( self, 'Datei-Ende');

[daywalker9]

Oder anstatt die Position selber zu errechnen:

Delphi-Quellcode:

  tm.Position := poOwnerFormCenter;

[HannsW]

Herzlichen Dank Euch beiden.
Auf einmal ist es so klar, daß ich mich frage, warum ich eigentlich fragen musste.
Danke