showmessage kun en gang

Kan du ikke gøre noget lignende det her:

var
  Form1: TForm1;
  B: Boolean = True;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  if B then
  begin
    ShowMessage('hej');
    B := False;
  end;
end;

Hvorfor ikke bare flytte ShowMessage over i OnFormCreate !?

Fordi den bliver aktiv eller Create flere gange ..

Du kunne jo også lave en boolean-variabel, fx MessageShown, som sættes til TRUE når showmessage kører, og efterfølgende tjekker den først om den er FALSE før den påbegynder showmessage igen

var
  MessageShown : Boolean;

TForm1.Create(Sender : TObject);
begin
  if not MessageShown then
  ShowMessage('etellerandet');
end;

ups jeg glemte lige at sætte variablen til TRUE første gang:

var
  MessageShown : Boolean;

TForm1.Create(Sender : TObject);
begin
  if not MessageShown then
  begin
    ShowMessage('etellerandet');
    MessageShown := TRUE
  end;
end;

Hold da helt fast : )
for mig er det nyt (bare) at sætte :  "VAR oppe ved implementation"
Det må man altså godt ?  den viker altså globalt.
Det viker i hvertilfælde , herligt !
Mange tak !

Alternativt kunne man bruge TAG Propertyen :

TForm1.Create(Sender : TObject);
begin
  if Tag = 0 then
  begin
    ShowMessage('etellerandet');
    Tag := 1;
  end;
end;

Jens B

Har det noget med "Tag ud af boret" ? : ) at gøre..
TAG ?  NÅ ?  hvad for et tag..

Tag er en property der ligger på alle komponenter (klasser der arver fra TComponent) det er en Integer, som du kan bruge til hvad du hare lyst til

Jens B