Einzelnen Beitrag anzeigen

Benutzerbild von Deep-Sea
Deep-Sea

Registriert seit: 17. Jan 2007
907 Beiträge
 
Delphi XE2 Professional
 
#4

Re: Vermischung von Darstellung und Logik

  Alt 3. Dez 2007, 12:39
Zitat von DelphiManiac:
Das heißt,

ich sollte am besten ein Event (bzw gleich mehrere) anbieten, diese OOP-Methodezeiger rufen dann eine
Prozedur der GUI auf, richtig?

Also ungefähr so?

Delphi-Quellcode:
TfrmMainGUI.ShowImage1(Sender:TObject);
begin
 Self.img1.Show;
end;

TPruefung.Teste...;
begin
 Machhierwas...
 Machdawas ...
 OnShowImage1; // rufe Prozedurzeiger auf
 Machnochirgendwas...
end;
Danke
Net ganz

TPruefung sollte eine Eigenschaft haben, zB. OnShowImage1. Diese ist zB. vom Typ TNotifyEvent.
Also kommt zu private oder protected eine Variable FOnShowImage1 vom Typ TNotifyEvent und zu public oder published kommt eine property mit dem Namen OnShowImage1 die lese- und schreibzugriff auf FOnShowImage1 hat.

Wenn du das Ereignis auslösen willst musst du
If Assigned(FOnShowImage1) then FOnShowImage1(Self); schreiben.
Chris
Die Erfahrung ist ein strenger Schulmeister: Sie prüft uns, bevor sie uns lehrt.
  Mit Zitat antworten Zitat