Gostaria de saber como faria o mesmo desse código de Delphi abaixo em Java.
type
TDLG = class
strict private
FForm : TForm;
strict protected
destructor Destroy; override;
procedure UpdateForm; dynamic;
public
property Form : TForm read FForm;
class procedure Executar;
class function GetFormClass : TFormClass; dynamic;
end;
destructor TDLG.Destroy;
begin
if FForm <> nil then
FreeAndNil(FForm);
end;
class function TDLG.GetFormClass : TFormClass;
begin
Result := TForm;
end;
procedure TDLG.UpdateForm;
begin
Form.SetBounds(100, 100, 300, 500);
Form.Caption := 'DLG';
end;
class procedure TDLG.Executar;
var
a : TDLG;
begin
a := Create; //aki usa a referencia de classe.
//quem cria? depende de quem chmaou.
//referencia de classe é exatamente igual referencia de objeto
try
a.FForm := GetFormClass.Create(nil); //aki tb usa referencia de classe.
a.UpdateForm;
a.Form.ShowModal;
finally
a.Free;
end;
end;
type
TDLG1 = class(TDLG)
protected
procedure UpdateForm; override;
end;
procedure TDLG1.UpdateForm;
begin
Inherited;
Form.Color := clRed;
Form.BorderStyle := bsDialog;
Form.AlphaBlendValue := 127;
Form.AlphaBlend := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TDLG.Executar;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
TDLG1.Executar;
end;
Queria como faço referencia de classe em Java , algo similar a esse código acima.