Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by marabu,
27. Aug 2007
Ich weiß nicht ob du damit am Ende glücklich wirst, aber nimm einfach die Behandlungsroutinen für OnChange() bei deinen Edit-Komponenten weg und probiere es so:
procedure TDemoForm.PageControlChange(Sender: TObject);
var
x, y: Integer;
begin
with Sender as TPageControl do
if (TabIndex = 1) and ParseCoord(PosEdit.Text, x, y) then
StringGrid.Cells := CellEdit.Text;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by marabu,
27. Aug 2007
Hallo,
hier mein Vorschlag für deine Koordinateneingabe:
function ParseCoord(const s: string; var x, y: Integer; separator: Char = ','): Boolean;
var
iSep: Integer;
begin
iSep := Pos(separator, s);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by marabu,
27. Aug 2007
Hallo,
wenn du die Zelle über deren Index-Werte in einem Edit-Feld adressieren willst, dann hast du dich doch für einen interaktiven Weg entschieden. Warum nicht gleich im StringGrid eingeben? Dazu musst du es nur editierbar machen - einfach im Object Inspector bei den Options goEditing einschalten.
Grüße vom marabu