Hallo,

folgendes Problem, ich erstelle dynamisch Komponenten und ihnen Proceduren zuweisen.
Leider läuft das schief.

Hat einer ne Idee?

so sieht mein Code (gekürzt) aus:

zusammenfalten · markieren

Delphi-Quellcode:

unit NewTab;

uses ...;

procedure NeuerTab;

procedure VST_Edit_OnGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;


var anzSQL:Integer = 0;
    VST_Edit: array of TVirtualStringTree;
    Sheet : array of TTabSheet;


procedure NeuerTab;
begin
  SetLength(Sheet, anzSQL +1);
  SetLength(VST_Edit, anzSQL +1);

  Sheet[anzSQL]:=TTabSheet.Create(Form_Main.PageControl_NewTab);
  Sheet[anzSQL].Parent:=Form_Main.PageControl_NewTab;
  Sheet[anzSQL].PageControl:=Form_Main.PageControl_NewTab;
  Sheet[anzSQL].Caption:='Query '+ IntToStr(Form_Main.PageControl_NewTab.PageCount -1);
  
  VST_Edit[anzSQL]:=TVirtualStringTree.Create(Sheet[anzSQL]);
  VST_Edit[anzSQL].Parent:=Sheet[anzSQL];
  with VST_Edit[anzSQL] do
  begin
    Align:=alClient;
    BorderStyle:=bsNone;
    Header.Background:=clSkyBlue;
    Header.Style:=hsFlatButtons;
    Header.Options:=[hoColumnResize,hoDblClickResize,hoDrag,hoVisible];
    TreeOptions.PaintOptions:=[toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toFullVertGridLines];
    TreeOptions.SelectionOptions:=[toFullRowSelect];
    Name:=NamePrefixVST + IntToStr(anzSQL);
    OnGetText:=VST_Edit_OnGetText; //GEHT NICHT
  end;

  inc(anzSQL);
end;

MfG
schuetze09

[edit=sakura] Leerzeichen in den Quelltext eingelassen. Mfg, sakura[/edit]

versuch das ganze mal mit nem @ davor...

habe ich auch schon probert, dann kommt:
"Inkompatible Typen: TVSTGetTextEvent und Pointer"

Methoden und Funktionen sind auch immer inkompatibel.
Methoden haben einen zusaetzlichen Parameter Self.

Nein es geht nicht den einer Funkton zu verpassen.

Mal ueber "of object" in der Hilfe nachlesen.

@Robert Marquardt: dann werde ich wohl lesen müssen

Ich hatte gedacht, es gibt dafür eine schnelle kleine Lösung )-:

MfG
schuetze09

Moin Schuetze09,

Zitat von schuetze09:

Ich hatte gedacht, es gibt dafür eine schnelle kleine Lösung )-:

gibt's.

Hättest Du die Überschrift mal in der Suche eingegeben, wärst Du vermutlich auf einige Threads mit dem gleichen Thema gestossen


BTW:
Kurze und schnelle Lösung:
Mach, wie Dir die Fehlermeldung fast schon vorschlägt, aus der Prozedur eine Methode (z.B. auch vom Formular).

Eine Möglichkeit gibts noch:

markieren

Code:

procedure FormClick(Self: TForm; Sender: TObject);
begin
  ShowMessage('OK');
end;

procedure TForm1.FormCreate(Sender: TObject);
var Event: TNotifyEvent;
begin
  with TMethod(Event) do begin
    Code:=@FormClick;
    Data:=Self;
  end;
  Self.OnClick:=Event; // geht !
end;

Mfg
Phantom1

Moin!

Ja, super, und? Nun haste da was hingefakt. Super! - aber was ist, wenn du kein Self hast, weil du keine Klasse hast? Warum nutzt du keine Methode von TForm1, wenn du es schon darin alles aufbaust und zuweist?

Fragen über Fragen....

Das ist doch auch nur ein Hack mit TMethod - warum nicht gleich eine kleine Klasse mit statischen Methoden? Die kann man zuweisen und die Klasse muss noch nichtmal angelegt werden...

MfG
Muetze1

Hallo,

ich habe es jetzt wie folgt gemacht, gefällt mir zwar nicht so, aber es geht:

in meiner MainForm habe ich
procedure VST_Edit_OnGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; unter public deklariert. So kann ich dann in meiner NewTab-Unit die procedure dem Event OnGetText zuordnen.

Nicht schön, aber es geht. Eigentlich müssten die proceduren in die NewTab-Unit, da ja dort die Komponenten dynamisch erstellt werden und vom rein logischen Zusammenhang her müssten sie da drin stehen.

MfG
schuetze09

Du könntest dir in NewTab auch eine Hilfsklasse schreiben in der du die Funktion packen kannst.