Hallo
DP,
ich melde mich auch mal wieder diesmal mit einem Problem mit
Access. Ich habe verschiedene Panels auf meinem Formular, die man per Drag'n'Drop verschieben kann. Nun möchte ich, wenn man das Formular beendet die Positionen speichern. Doch irgendwie schaffe ich es nicht meinen Datensatz der ADOTable zu bearbeiten. Dieser erstellt immer wieder neue Datensätze.
Hier mein Code dazu:
Delphi-Quellcode:
//Elemente bei beenden speichern
procedure TForm1.saveElements();
var
i: Integer;
begin
//DB Table ändern
ADOTable1.Active := False;
ADOTable1.TableName := '
OpenedElements';
ADOTable1.Active := True;
for i := 0
to PanelCount
do
begin
ADOTable1.Locate('
PanelName', '
P' + IntToStr(i), []);
ADOTable1.Append;
ADOTable1['
Position_Left'] := TPanel(GetComponentByName(self, '
P' + IntToStr(i))).Top;
ADOTable1['
Position_Top'] := TPanel(GetComponentByName(self, '
P' + IntToStr(i))).Left;
ADOTable1.Post;
end;
end;