Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.060 Beiträge
 
Delphi 10.4 Sydney
 
#22

AW: Application.CreateForm in einem Thread

  Alt 10. Mai 2017, 10:30
Ich konnte mich allerdings bisher nicht an die Umstellung auf Generics in Bezug auf den VST gewöhnen.
Das ist ja der Helper für die alten Versionen. Die generische Variante direkt habe ich selber noch kaum benutzt.
Geht gut! In der offiziellen Version hängt die Funktion aber am Node, was natürlich intuitiver ist.
Hier ein Beispiel:
Delphi-Quellcode:
procedure TScreenControlsForm.vstScreenComponentsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex;
  TextType: TVSTTextType; var CellText: string);
var
  Info: IScreenComponentInfo;
begin
  Info := Node.GetData<IScreenComponentInfo>;
  if Assigned(Info) then
  begin
    CellText := Info.Text;
  end;
end;
  Mit Zitat antworten Zitat