Aufruf eines neuen Fensters aus anderem Code

[DelphiManiac]

Hallo,

ich habe ein Prüfprogramm für ein Gerät geschrieben.
Hier habe ich nun einige Funktionen:
Beispiel : CheckRelais;

In dieser Funktion (gehört zur Klasse meines Prüflings) werden nun die verschiedenen Relais getestet.
Nun meine Problem.

In meinem Hauptprogramm (Form) will ich nun ein Fenster öffnen, dass mir genau das Relais, dass gerade geprüft wird anzeigt.
Rufe ich aber die Funktion aus meinem Hauptprogramm auf, so ist dies nicht möglich. Andere Möglichkeit, ist, dass ich es
in der Funktion aufrufe Form1.Show usw.. aber das ist irgendwie unschön, da ich doch dann
Programmierlogik mit Design vermische.

Ist irgendwie unsauber. Vielleicht habt ihr ja ein Rat für mich, denn ich versuche mir einen anständigen Programmierstil beizubringen.
Vielleicht habt ihr ja auch ein Beispielprog für mich, wo ich mir so ein paar Sachen aneignen kann.


Danke schonmal,..

P.S.: Super Community, hab hier schon einige Antworten auf meine Fragen bekommen THX

[marabu]

Hallo.

Ich würde das zu prüfende Relais von einer allgemeinen Klasse TCustomRelais ableiten. Dieser würde ich die Methoden Show() und Hide() geben. Die Methode Check() könnte dann so aussehen:

Delphi-Quellcode:

function TSpecialRelais.Check: Boolean;
begin
  Show;
  // .. perform tests
  Hide;
end;

Grüße vom marabu

[DelphiManiac]

Hallo marabu,

danke schonmal für deine Antwort.

Nunja, ich habe eine Klasse Geraet und diese Klasse hat mehrere Funktionen

Delphi-Quellcode:

DoPruefung1  // Prüfe LED's
DoPruefung2  // Prüfe Relais
DoPruefung3  // Prüfe Stromversorgung
DoPruefung4
DoPruefung5

zurzeit habe ich diese Funktionen mit einer Anzeige eines Forms erweitert
Bsp.:

Delphi-Quellcode:

DoPruefung1
begin
...
//Prüfe Relais1
Form1.Label1.Caption:='Relais 1-Test';
Form1.Show;
Sleep(2000);
...
//Prüfe Relais2
Form1.Label1.Caption:='Relais 2-Test';
Form1.Show;
...
//Prüfe Relais3
//usw

end;

So oder so ähnlich habe ich das zurzeit.

Hast du evtl. ein Programm, dass mir so ein bisschen, die Vorgehensweise erläutert?
Ich habe immer wieder das gleiche Form, ändere immer die Labels.

Gruß DelphiManiac