[HollaDieWaldfee2005]

Hallo,

ich habe mal eine Frage euch Winfutianer. Und zwar habe ich in der Classe TForm1 eine Methode, die ich zur Laufzeit aus einer Unit aufgerufen haben möchte, das muss man sich wie folgt vorstellen:

Die Unit:

Unit blabla;

interface

var Interrupt:Procedure (CurrentAddress:Longint);

Procedure DoNothing; forward;

Procedure Init;
Procedure Suche_Ausfuehren;

implementation

Procedure Suche_Ausfuehren;
begin
...
if CurrentAdresse mod 100000 then Interrupt (CurrentAdress);
...
end;

Procedure Init;
begin
Interrupt:=DoNothing (CurrentAdress);
end;

unit main;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls, Forms, StdCtrls,
  ComCtrls, ExtCtrls, TLHelp32, ShellApi, Variants, Dialogs, Buttons,
  Graphics, Menus, blabla;

type
  TForm1 = class(TForm)
	ProgressBar1: TProgressBar;
	Button3: TButton;
  private
	{ Private-Deklarationen }
  public
	Procedure Refresh (currentadress:Longint);
  end;

var
  Form1   : TForm1;

Procedure Tform1.Refresh (currentadress:Longint);
Begin
ProgressBar.Position := CurrentAdress;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
blabla.Interrupt:=Tform1.Refresh (CurrentAdress); // <-- Wie bekomme ich einen Aufruf von der Methode Refresh für den Interrupt hin?
end;

Ich möchte recht ungern Threads oder Timer benutzen. Kann jemand helfen ? Zur Not, wie könnte ich die ProgressBar ansprechen, falls es keine möglichkeit gibt, die methode so wie oben aufzurufen ?

Dieser Beitrag wurde von HollaDieWaldfee2005 bearbeitet: 21. Juli 2008 - 20:50

[christoph_hausner]

Hallo HollaDieWaldfee2005,

versuchs mal so, sollte eigentlich funktionieren.

var
  Interrupt: procedure (CurrentAddress: Longint) of object;

// ...

procedure Init;
begin
  Interrupt := DoNothing;
end;

// ...

procedure TForm1.FormShow(Sender: TObject);
begin
  blabla.Interrupt := Refresh;
end;

[HollaDieWaldfee2005]

Danke für den Tipp, es läuft Perfekt!