Einzelnen Beitrag anzeigen

thomas2009
(Gast)

n/a Beiträge
 
#6

AW: Aufruf von einem Procedure in Project Source

  Alt 23. Mär 2011, 13:55
Sie ist ja auch noch nicht deklariert.
Und warum so funktioniert ohne Deklaration :

Delphi-Quellcode:
program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas{Form1},
  Unit2 in 'Unit2.pas{Form2},
  Unit3 in 'Unit3.pas{Form3};

{$R *.res}
procedure HideForms;
begin
Application.ShowMainForm := False;
Form2.Hide;
Form3.Hide;
  Application.Run;
end;


begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);


  if Paramstr(1) = 'hiddedthen HideForms
  else
  Application.Run;

end.
Ich möchte aber den Procedure Hideforms nur aufrufen (nicht vordem Überprüfen aufrufen),
wenn das Passwort gültig ist, darum habe ich den Code geändert

---
Ist Execute eine Klassenmethode von TForm2?
Ja. Form2 ist Login Fenster und wird gelöscht bevor das Programm startet

Geändert von thomas2009 (23. Mär 2011 um 14:03 Uhr)