Eingabefenster automatisch anzeigen lassen

[BerndS]

Hier noch eine einfache Variante:

Delphi-Quellcode:

type
  TForm1 = class(TForm)
  private
    FFirstDlg: Boolean;
  public
    procedure UpdateActions; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.UpdateActions;
begin
  if not FFirstDlg then
  begin
    FFirstDlg := True;
    ShowMessage('Hallo Welt');
  end;
  inherited;
end;