Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
27. Jun 2004
*blubb*
procedure TForm1.StringGrid5SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
myACol : Integer;
begin
StringGrid5.OnSelectCell := nil; // Nicht das unsere OnSelectCell mehrfach läuft ;-)
myAcol := Acol;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
27. Jun 2004
Aaaahhhh.... jetzt kommt der Fehler.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
27. Jun 2004
Ich verstehe es einfach nicht. Wann kommt da bei euch ein Fehler?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
27. Jun 2004
Neue Version:
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
var
myACol : Integer;
begin
myAcol := Acol;
CanSelect:=Not ((ACol=9) or (Acol=18) or (Acol=27));
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Sharky,
27. Jun 2004
procedure TForm1.StringGrid5SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
CanSelect:=Not ((ACol=9) or (Acol=18) or (Acol=27) and (ARow=stringgrid5.row));
if (canselect=false) and (stringgrid5.col>acol) then stringgrid5.col:=Stringgrid5.col-4;
if (canselect=false) and (stringgrid5.col<acol) then stringgrid5.col:=Stringgrid5.col+2;
...