nein Bitte nicht....
Über diesen schnipsel lade ich einen Button aus der
DB
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
clientdataset1.LoadFromFile('C:\Delphi Progs\Menü 2\schaltflaeche.xml');
clientdataset1.First;
repeat
Schaltflaeche := TButton.Create(Form1);
Schaltflaeche.Name:= clientdataset1.FieldValues['name'];
Schaltflaeche.Caption:= clientdataset1.FieldValues['Caption'];
Schaltflaeche.top:= clientdataset1.FieldValues['top'];
Schaltflaeche.Left := clientdataset1.FieldValues['left'];
Schaltflaeche.Width := clientdataset1.FieldValues['Width'];
Schaltflaeche.Font.Style := integer(Schaltflaeche.Font.Style);//Hier sagt er invalid Typcast
Schaltflaeche.parent := Self;
Schaltflaeche.PopupMenu := popupmenu1;
Schaltflaeche.OnContextPopup := SchaltflaecheContextPopup;
Schaltflaeche.OnMouseDown := SchaltflaecheMouseDown;
Schaltflaeche.OnMouseMove := SchaltflaecheMouseMove;
Schaltflaeche.OnMouseup := SchaltflaecheMouseup;
Clientdataset1.Next;
until CLientdataset1.Eof;
Umbenennen := nil;
end;
Und dann will ich wärend der Laufzeit Buttons erstellen und speicher sie in die
DB
hiermit
Delphi-Quellcode:
procedure TForm1.SchaltflaecheHinzufuegen1Click(Sender: TObject);
begin
Schaltflaeche := TButton.Create(Form1);
Schaltflaeche.Name := 'Schaltflaeche'+inttostr(clientdataset1.RecordCount+1);
Schaltflaeche.Caption := Schaltflaeche.name;
Schaltflaeche.Parent := Self;
Schaltflaeche.Top := 50;
Schaltflaeche.Width := 100;
Schaltflaeche.Left := 50;
Schaltflaeche.Font.Style :=[fsbold];
Schaltflaeche.PopupMenu := PopupMenu1;
Schaltflaeche.OnContextPopup := SchaltflaecheContextPopup;
Schaltflaeche.OnMouseDown := SchaltflaecheMouseDown;
Schaltflaeche.onMouseMove := SchaltflaecheMouseMove;
Schaltflaeche.onMouseUp := SchaltflaecheMouseUp;
clientdataset1.Insert;
Clientdataset1.FieldByName('name').AsString:= Schaltflaeche.name;
clientdataset1.FieldByName('Caption').AsString:=Schaltflaeche.Caption;
clientdataset1.FieldByName('top').AsInteger:= Schaltflaeche.top;
clientdataset1.FieldByName('left').AsInteger:= Schaltflaeche.Left ;
clientdataset1.FieldByName('width').AsInteger:= Schaltflaeche.width ;
clientdataset1.FieldByName('Height').AsInteger:= Schaltflaeche.Height ;
clientdataset1.FieldByName('Fontname').AsString:= Schaltflaeche.font.Name ;
clientdataset1.FieldByName('Fontsize').AsInteger:= Schaltflaeche.Font.Size ;
clientdataset1.FieldByName('Fontstyle').AsInteger:=//???
Clientdataset1.post;
end;