(Gast)
n/a Beiträge
|
AW: Dynamischer Verweis auf Komponente
17. Sep 2018, 11:56
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;
|
|
Zitat
|