Procedure nicht sichtbar...

[bluescreen25]

Hallo, ich habe das Problem, das die proceduren der eingebundene Unit in meinen anderen Units nicht sichtbar sind. Wahrscheinlich ein Anfängerproblem. Wer kann helfen ?
PS: in den anderen Units ist diese in Uses eingebunden.

Delphi-Quellcode:

unit ShutDown;

interface

uses
  Windows, Messages, SysUtils, Classes;

type
  TShutDown = class(TObject)
  public
   procedure Shutdown(PowerOff,Force :boolean);
   procedure Ruhezustand(Force :boolean);
   procedure Standby(Force :boolean);
   procedure Logoff(Force : boolean);
   procedure Restart(Force :boolean);
   procedure GetPrivileges;
end;

implementation

procedure TShutDown.GetPrivileges;  //Rechte um runterzufahren holen.
...
...
...

[Dust Signs]

In deinem Fall sind die Prozeduren Methoden deiner Form. Du kannst Sie daher nur über

Delphi-Quellcode:

NameDerInstanzDeinerForm.Funktionsname();

aufrufen - oder du machst es schön und gibst die Methoden aus der Form raus - in eine extra Unit ;)

Dust Signs

[jfheins]

Warum hast du dir deinen Avatar ausgesucht? Der würde fast passen :mrgreen:

Zitat:

In deinem Fall sind die Prozeduren Methoden deiner Form.

Welcher Form ?

Um diese Methoden zu verwenden muss man mit Objekten (und Klassen) arbeiten, man kann die Prozeduren nicht einfach aufrufen ;)

Beispiel:

Delphi-Quellcode:

var
ShutdownObj: TShutdown;
begin
  ShutdownObj := TShutdown.Create; // Das zuerst
  try
    ShutdownObj.GetPrivileges; // Das geht jetzt ...
  finally
    FreeAndNil (ShutdownObj); // Und wieder freigeben ...
  end;
end;

[Dust Signs]

Ups :oops: Hab den Code wohl zu schnell angeschaut; eine Instanz braucht er trotzdem...

Dust Signs

[bluescreen25]

Öhm, diese unit hat keine Form und soll eigendlich auch nicht. Deshalb kann ich die instanz auch nicht aufrufen, bzw nur TShutDown.create, aber nicht die Proceduren. :oops:

[Luckie]

Tutorial: http://www.michael-puff.de/dirindex....phi/Tutorials/

[bluescreen25]

Zitat:

Zitat von Luckie

Tutorial: http://www.michael-puff.de/dirindex....phi/Tutorials/

Danke, das gibt mal Einblicke in die Struktur...

[bluescreen25]

Ist das eine geeignete Art und Weise ? Funktioniert aber ist es üblich ?

Delphi-Quellcode:

unit ShutDown;

interface

uses
  Windows, Messages, SysUtils, Classes;

type
  TShutDown = class(TObject)
  private
    constructor create;
    destructor destroy;
  public
    procedure Shutdown(PowerOff,Force :boolean);
    procedure Ruhezustand(Force :boolean);
    procedure Standby(Force :boolean);
    procedure Logoff(Force : boolean);
    procedure Restart(Force :boolean);
    procedure GetPrivileges;
end;

var ShutDownObj : TShutDown;
    PowerOff: boolean;

implementation

constructor TShutDown.create;
 begin
   ShutdownObj := TShutdown.Create;
 end;

destructor TShutDown.destroy;
 begin
  ShutDownObj.Free;
  inherited Destroy;
 end;

procedure TShutDown.GetPrivileges;  //Rechte um runterzufahren holen.
...
...
...

Hier ein Beispielaufruf aus einer anderen Unit/Form:

Delphi-Quellcode:

procedure Tmediaplayer_frm.Image14Click(Sender: TObject);
begin
  case config_frm.ShutdownSelect.ItemIndex of
   0: begin
        Main_frm.Close;
      end;
   1: begin
        Main_frm.Close;
        ShutDownObj.Shutdown(PowerOff,config_frm.ShutDown_force_select.Checked);
      end;
  end;
end;

[Luckie]

Warum instanzierst du im Konstruktor die eigene Klasse? Du brauchst eigentlich auch keinen eigenen Konstruktor:

Delphi-Quellcode:

unit ShutDown; 

interface 

uses 
  Windows, Messages; 

type 
  TShutDown = class(TObject) 
  private 
    procedure GetPrivileges; 
  public 
    procedure Shutdown(PowerOff,Force :boolean); 
    procedure Ruhezustand(Force :boolean); 
    procedure Standby(Force :boolean); 
    procedure Logoff(Force : boolean); 
    procedure Restart(Force :boolean);     
end; 

var  
  PowerOff: boolean; 

implementation 


procedure TShutDown.GetPrivileges;  //Rechte um runterzufahren holen. 
//...

Und wozu die globale Variable PowerOff?

[bluescreen25]

Zitat:

Zitat von Luckie

Warum instanzierst du im Konstruktor die eigene Klasse? Du brauchst eigentlich auch keinen eigenen Konstruktor:

Delphi-Quellcode:

unit ShutDown; 

interface 

uses 
  Windows, Messages; 

type 
  TShutDown = class(TObject) 
  private 
    procedure GetPrivileges; 
  public 
    procedure Shutdown(PowerOff,Force :boolean); 
    procedure Ruhezustand(Force :boolean); 
    procedure Standby(Force :boolean); 
    procedure Logoff(Force : boolean); 
    procedure Restart(Force :boolean);     
end; 

var  
  PowerOff: boolean; 

implementation 


procedure TShutDown.GetPrivileges;  //Rechte um runterzufahren holen. 
//...

Und wozu die globale Variable PowerOff?

Genau das war eingangs mein Problem. Wie ich sonst die proceduren hier aus einer anderen Form erreichen kann. Obwohl die public sind gehts nicht....