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