Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
29. Nov 2005
Ich meine damit die Zeile "EditorMode := true;". Die hat noch gefehlt. Der restliche Code stammt ja sowieso von mir.
Eben nicht ! Ich KANN auch vorher nur soviele Zeichen eingeben, wie in die Spalte reinpassen, egal wie breit sie zur Laufzeit tatsächlich ist. Das einzige war das Umschalten in Überschreibmodus durch das setzen des Cells-Wertes, sofern die errechnete MaxLength, also :
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
29. Nov 2005
Thx Lannes, einwandfrei. :thumb: Ist mir noch nie aufgefallen. @marabu : Dein Code ist wohl von einem SKU, aber warum so kompliziert ?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
29. Nov 2005
Stimmt an die Ereignisse habe ich gar nicht gedacht. 8) Du meinst so ungefähr ?
procedure TfrmNrEin.sgNrSetEditText(Sender: TObject; ACol,
ARow: Integer; const Value: String);
begin
with Sender as TStringGrid do begin
if (length (value) * Font.Size) >= ColWidths then begin
Cells := copy (value,1,length (value)-1);
end;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
28. Nov 2005
Hi,
bin hier gerade über ein Problemchen gestolpert. Es geht um ein Stringgrid. Beispiel : 3 Spalten.
Spalte 1: 10 Zeichen, Spalte 2 20 Zeichen, Spalte 3 10 Zeichen.
Ich setze die Breite der Spalten im Programm immer auf die richtige Breite, kann aber soviel eingeben wie ich will. Gebe ich in Spalte 1 10mal Z ein, dann passen die haargenau noch rein, egal welche Schrift oder bei...