Aufrufenden TFrame erkennen

[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:

timerMessage ( self, 'Datei-Ende');