Form4.Show; kommt zu früh !

[Delphiturbo]

Hallo,

wenn ich die INI-Datei lösche dann erscheint Form4 zu früh !
Ja ich weiß, wenn ich die ini Datei lösche, dann hat automatisch die variable
s1 den Wert 0
und wenn s1 = 0 ist dann soll die Form4 erscheinen
Aber sie erscheint zu früh. Vor dem Klick auf Button1 !!!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Not FileExists('test.ini')  then
S1:='0';
  if Get_File_Size(ParamStr(0),True) <> S4 then  

      BEGIN
      Form4.Show;
    end
  else
    ...
    end;
end;

[himitsu]

ist bei Form4 das Visible (im OI) auf True?

[Hansa]

Ganz einfach. Das hier ist größer 10 :

Delphi-Quellcode:

if StrToInt(Get_File_Size(ParamStr(0),True)) - strToInt(S4) > 10

> 10 = "größer als 10" :!: :!: :mrgreen:

[Delphiturbo]

Zitat:

Zitat von himitsu

ist bei Form4 das Visible (im OI) auf True?

Nein, alle forms Visible : false;
sehe meine Update oben (onshow)

[Delphiturbo]

Zitat:

Zitat von Hansa

Ganz einfach. Das hier ist größer 10 :

Delphi-Quellcode:

if StrToInt(Get_File_Size(ParamStr(0),True)) - strToInt(S4) > 10

> 10 = "größer als 10" :!: :!: :mrgreen:

Es liegt nicht daran
ich habe auch so ausprobiert :

Delphi-Quellcode:

if StrToInt(Get_File_Size(ParamStr(0),True)) - strToInt(S4) <> then ...

[taaktaak]

Im OnShow ist hinterlegt, dass Form4 erscheinen soll, wenn die INI nicht gefunden wird! Wieso sollte das erst geschehen, wenn du auf den Button drückst? Wenn das IMMER erst nach dem Button-Druck geschehen soll, dann nimm doch einfach den else-Zweig aus OnShow heraus - oder habe ich das jetzt völlig missverstanden?

[Delphiturbo]

Das stimmt
das Problem gelöst
der Code versteckte im Onshow :mrgreen:

[taaktaak]

velmi dobre!

[Hansa]

Zitat:

Zitat von taaktaak

velmi dobre!

Was heißt denn das ? :shock: Ja ich weiß : suchen. :mrgreen: Die Frage scheint ja ansonsten klar zu sein.

[taaktaak]

Moin, Moin.
Sorry, hatte mich gerade mit einer ausländischen Bekannten unterhalten, da habe ich nicht auf die richtige Sprache umgeschaltet. Wollte sagen: Sehr gut!