Okay habe es so gelöst
Ich habe eine Globale var Eigenschaften:TButton; auf Form1 erstellt. Dieser Button wird bei der contextpopup methode als Sender gesetzt.
Als 2. Schritt habe ich jetzt einen Button Speichern auf Form1 dem ich folgende Werte gegeben habe
Delphi-Quellcode:
procedure TForm1.SpeichernClick(Sender: TObject);
begin
Eigenschaften.name :=Form2.DBEdit1.Text;
Eigenschaften.Caption :=Form2.DBEdit2.Text;
Eigenschaften.top :=Strtoint(Form2.DBEdit3.text);
Eigenschaften.Left :=Strtoint(Form2.DBEdit4.text);
Eigenschaften.Height :=StrToInt(Form2.DBEdit5.Text);
Eigenschaften.width :=StrToInt(Form2.DBEdit6.Text);
Eigenschaften.font.Name :=Form2.DBEdit7.Text;
Eigenschaften.Font.Size :=StrToInt(Form2.DBEdit8.Text);
end;
Der Form 2 des Speicher Buttons diese
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.ClientDataSet1.Edit;
Form1.Clientdataset1.post;
Form1.SpeichernClick(self);
Close;
end;
Hat jemand noch ne andere Lösung
Das Einzige was nervt sind das die Daten auf Form2 in den DBEdit rechts stehen und wenn mann rein klickt links stehen gilt aber nur für Zahlwerte Hier mal ein Bild