Hallo,
das Erste ist, dass Du einen neuen Nachfahren von TComponent erzeugst.
Am Besten in einem eigenen Verzeichnis.
Dann erstellst Du eine neue Anwendung. Füge dieser Anwendung ein zweites Formular hinzu. Speichere dieses Formular in dem Verzeichnis der Komponente. Jetzt entferne das Formular aus dem Projekt.
Nehme die Formular-
Unit in die uses Anweisung im Implementation-Abschnitt der Komponente auf.
Die Komponenten-Source könnte so aussehen:
Delphi-Quellcode:
unit JsCustomDialog;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TJsCustomDialog =
class(TComponent)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
function Execute : Boolean;
published
{ Published-Deklarationen }
end;
procedure Register;
implementation
uses Js_Dialog_frm;
procedure Register;
begin
RegisterComponents('
Mycomps', [TJsCustomDialog]);
end;
{ TJsCustomDialog }
function TJsCustomDialog.Execute: Boolean;
begin
With TFormCustomDialog.Create(Self)
do
begin
Try
Result:=ShowModal=mrOk;
Finally
Release;
end;
end;
end;
end.
Der Source für das Formular sieht dann so aus. Bzw kann von Dir angepasst werden:
Delphi-Quellcode:
unit Js_Dialog_frm;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TFormCustomDialog =
class(TForm)
Button1: TButton;
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
FormCustomDialog: TFormCustomDialog;
implementation
{$R *.DFM}
procedure TFormCustomDialog.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caHide;
end;
procedure TFormCustomDialog.Button1Click(Sender: TObject);
begin
ModalResult:=mrOk;
end;
end.