[tecONE]

Hi!

Ich spiel grad ein bissl mit Delphi 7 rum, und wollt mal wissen wie ich einen Button zur Laufzeit an einer bestimmten Stelle hinzufügen kann. Hat da einer eine Idee?


danke!

[tecONE]

Antwort:

begin
MyButton := TButton.Create(Form1);
with MyButton do begin
Parent := Form1;
Height := 32;
Width := 128;
Caption := 'Neuer Button';
Left := 50;
Top := 50;
end;

Dieser Beitrag wurde von tecONE bearbeitet: 20. Mai 2003 - 17:25

[xylen]

hmm...wo in diesem Code ist da der Zeitfaktor?

MyButton := TButton.Create(Form1);

button initialisieren

Height := 32;
Width := 128;
Caption := 'Neuer Button';
Left := 50;
Top := 50;

Ausrichtung und Beschriftung

Parent := Form1;

?

[tecONE]

für was brauchste nen Zeitfaktor?

[xylen]

So, jetzt ganz langsam, vielleicht hab ich auch nur etwas falsch aufgefasst:

Du möchtest einen Button nach einer gewissen Zeit automatisch in ein laufendes Programm einfügen lassen. Wenn mich nicht alles täuscht muss man da ja auch irgendwo definieren wann deser Button eingefügt werden soll

[tecONE]

nö, das war ne allgemeine Frage, wie ich einen Button hinzufügen kann, obwohl das Programm läuft, also nicht in der Dev IDE sondern als exe....

jetzt hab ichg aber noch ein Problem: ich will jetzt die Buttons in der Breite und im Abstand zum linken Rand verschieben. (So wie die Windows Taskleiste)

weiss einer wie ich auf die generierten Buttons zugreifen kann?

Kompletter Code:

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  MyButton: TButton;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MyButton := TButton.Create(Form1);
with MyButton do begin
Parent := Form1;
Height := 32;
Width := 128;
Caption := 'Neuer Button';
Left := 50;
Top := 50;
end;
end;

end.