Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nightshade,
13. Jan 2005
Warum erstellst du in der Neuen Zeile nicht direkt die Objekte ?
procedure TfrmArtNrEin.ErzeugeNeueZeile(Sender: TObject);
var
t : integer;
begin
with Sender as TStringgrid do begin
WertSpeichern;
NeueZeile := true; // besetzen von Col und Row ruft SelectCell auf !!
Col := 1; // das sgArtNr.Objects darf hier nicht verändert werden
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nightshade,
11. Jan 2005
Sobald du Text in die Zellen schreibst (muss ja irgendwo passieren :) ), musst du dann auch das Object anhängen.
Und In TestForEdit sollte man dann wirklich abfragen ob ein Object angehängt ist....
function TForm1.TestForEdit(ACol, ARow : integer):boolean;
begin
if Stringgrid1.Objects <> nil then begin
MyObject := TMyObject(Stringgrid1.Objects);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nightshade,
9. Jan 2005
Du kannst einfach ganze Objecte in einer Zelle speichern.
Type TMyObject = class(TObject)
private
Editable : boolean;
end;
procedure AddObjectToGrid(ACol, ARow : integer; Editable : boolean);
var