Dynamischer Verweis auf Komponente

[Schokohase]

Also würdest du so etwas brauchen

Delphi-Quellcode:

unit uStartFrame;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TFrame1 = class(TFrame)
    Edit1: TEdit;
    Edit2: TEdit;
  private
    { Private-Deklarationen }
  public
    procedure Execute();
  end;

implementation

uses
  Winapi.ShellAPI;

{$R *.dfm}

procedure TFrame1.Execute;
begin
  ShellExecute( Handle, 'open', PChar(Edit1.Text), PChar(Edit2.Text), nil, SW_SHOW );
end;

end.

Und für den Button

Delphi-Quellcode:

procedure TFormX.Button1_Click(Sender:TObject);
begin
  Frame1.Execute;
end;

[Moombas]

@Schokohase: Nicht wirklich. Sorry aber ich glaube du hast das nicht so ganz verstanden.
Aufbau:
Edits:
Pagecontrol1 (Menu) -> PageX (Einstellungen) -> Pagecontrol2 (EinstellungenPC) -> PageY (ToolsE) -> EditE1-15 (Programmpfade) & EditP1-15 (Parameter)
Tool1E.text...Tool15E.text
Tool1P.text...Tool15P.text

Buttons:
Pagecontrol1 (Menu) -> PageZ (Programme) - >GroupBox (Toolbar) -> Button1-15 (Aufruf)
Tool1B...Tool15B

Und an dem Aufbau wird sich nichts ändern.

@DeddyH: Doch TTools ist die Form (Formname: Tools). Probiert habe ich es auch schon mit:
showmessage(TEdit(FindComponent('Application.TTool s.Tool' + copy(Name, 5, 1) + 'E')).Text);
showmessage(TEdit(FindComponent('Application.Tools .Tool' + copy(Name, 5, 1) + 'E')).Text);
showmessage(TEdit(FindComponent('TTools.Tool' + copy(Name, 5, 1) + 'E')).Text);
showmessage(TEdit(FindComponent('Tools.Tool' + copy(Name, 5, 1) + 'E')).Text);

leider kein Erfolg, er scheint das EditFeld absolut nicht zu finden. Da muss irgendwo ein Denkfehler sein.

[Schokohase]

Nun sagen wir mal so, du hast es gar nicht erklärt. Und Nichts kann man eben nicht nicht verstehen.

Aber aus deinen Erklärungen sehe ich das es auf der PageY (ToolsE) 15 Paare von Edit-Feldern gibt (eines für den Programmpfad, das andere für die Parameter).

Diese beiden könnte man in einem Frame zusammenfassen und dem Frame eine Execute-Methode verpassen (so wie von mir gezeigt).

Aber ist schon recht ... bei dem Aufbau würde ich da auch ganz anders drangehen (kein Zugriff vom Button auf die ToolXE/ToolXP-Cotrols)

[Uwe Raabe]

Zitat von Moombas:

er scheint das EditFeld absolut nicht zu finden. Da muss irgendwo ein Denkfehler sein.

Wenn die PAS-Datei zu geheim ist, genügt es auch nur die DFM-Datei hier zu posten. Daran könnte man den Aufbau des Forms schon erkennen.

[Moombas]

Das sollte kein Problem darstellen^^ s.u.

[Moombas]

Hab aber in einem anderen Beitrag (über Google über Umwege) eine Lösung gefunden:

TEdit(Tools.FindComponent('Tool' + copy(Name, 5, 1) + 'E')).Text

-.-

[Schokohase]

Zitat von Moombas:

Hab aber in einem anderen Beitrag (über Google über Umwege) eine Lösung gefunden:

TEdit(Tools.FindComponent('Tool' + copy(Name, 5, 1) + 'E')).Text -.-

Die funktioniert ja super für die Button von 1-9. Aber was ist mit 10,11,12,13,14,15?
Es gibt keine Exception, aber einen falschen Zugriff auf Tool1E!

[Uwe Raabe]

Zitat von Moombas:

Hab aber in einem anderen Beitrag (über Google über Umwege) eine Lösung gefunden:

TEdit(Tools.FindComponent('Tool' + copy(Name, 5, 1) + 'E')).Text

Wenn das Voranstellen des Formnamens (was in der Regel eher nicht gut ist) das Problem löst, dann kann das eigentlich nur bedeuten, daß der Button-Click Event nicht innerhalb der TTools-Klasse liegt. Das wäre allerdings eine nicht ganz unwichtige Information.

[Moombas]

@Schokohase: Doch:

Delphi-Quellcode:

    try
      StrToInt(copy(Name, 6, 1));
//1-Stellig (0-9)
    except
//2-Stellig (10-99)
    end;

[DeddyH]

Wieso sollte der Code eine Exception werfen, wenn im 6. Zeichen eine Ziffer steht?