Hallo Zusammen,
ich bin gerade auf dünnem Eis, weil ich mich mit dieser Art der Zuweisung nicht gut auskenne. Daher bitte ich Euch um Hilfe.
Das Problem ist, dass ich einer Procedure Parameter aus einer anderen Übergeben möchte. Die beiden Proceduren sind nicht in der gleichen
Unit, daher gestaltet sich der Aufruf wie folgt:
Auslösende
Unit:
Delphi-Quellcode:
type
TEvent = procedure(Sender: TObject) of object;
TFrame_Uebersicht = class(TFrame)
...
private
{ Private-Deklarationen }
FOnFilter: TEvent;
public
{ Public-Deklarationen }
property OnFilter: TEvent read FOnFilter write FOnFilter;
end;
implementation
{$R *.dfm}
procedure TFrame_Uebersicht.Grid_UebersichtClickCell(Sender: TObject; ARow,
ACol: Integer);
begin
if (Assigned(FOnFilter)) and (ARow=1) then
FOnFilter(Grid_Uebersicht); //An dieser Stelle möchte ich die Parameter ACol und ARow mit übergeben.
end;
In meiner Hauptunit sieht das Ganze dann so aus:
Delphi-Quellcode:
procedure TMain.FormCreate(Sender: TObject);
begin
Frame_Uebersicht1.OnFilter:= Filter_Actions;
end;
procedure TMain.Filter_Actions(Sender: TObject);
var SG: TAdvStringGrid;
begin
if Sender is TAdvStringGrid then begin
SG:= Sender as TAdvStringGrid;
Set_Filter(SG); //An diese Procedure möchte ich die Variablen ACol und ARow übergeben
Apply_Filter(SG);
end;
end;
Ich hoffe, dass das Problem mit der Kommentierung im Code nachvollziehbar ist.
Würde mich freuen, wenn jemand mir da die Zusammenhänge und Möglichkeiten zeigen würde.
Vielen Dank
Patrick
Programmierung allgemein
Zitat
Baum-Darstellung
