[DELPHI] Oggetti a Runtime

[gaetanotuning]

Maròòòò Scusateee! Non ci ho fatto proprio caso.
PArlo sempre di delphi quindi quì dentro quindi davo per scontato che si sapesse! hehehe
Ke scemo ke sono.
Cmq...in Delphi vorrei eliminare un pulsante...per poi ricrearlo successivamente al click di un altro pulsante.
Come posso fare?

[gaetanotuning]

Ho ripetuto "quindi" . Si vede che sto fulminato.

[denis76]

E' molto semplice, semplicemente lo crei e lo aggiungi tu anziché usare l'ide per disegnarlo.
Ci sono altri modi analoghi... Io ad esempio me lo disegno, mi copio ciò che nel file lfm è associato a lui e così faccio prima.

[gaetanotuning]

Il file .lfm?? Mica volevi dire il .dfm?
Dove stà questo file .lfm?

[denis76]

Scusa, hai ragione te.

[Ippo343]

E' un po' di tempo che non tocco delphi, anzi, quasi 2 anni Oo

Però dovrebbe essere una cosa del tipo:

...
var nuovoBottone: Button;
begin

...
nuovoBottone = Button.Create(this);
nuovoBottone.Left = ...;
nuovoBottone.Top = ...;
...

end;

prima crei l'oggetto e poi gli riassegni le proprietà che ti servono.

[lukethegreat]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,StdCtrls;

type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bottone : tbutton ;

implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
   bottone := tbutton.create(self);
   bottone.caption := 'prova';
   bottone.top := 100;
   bottone.left := 100;
   bottone.parent := Self;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   bottone.free;
end;

end.

semplice no?
puoi distruggerlo e ricrearlo quante volte vuoi.

luke

[gaetanotuning]

Thanks