ActiveControl und GroupBox mit Edit-Feldern

[DGL-luke]

du brauchst nur einen pointer auf dein edit.

Delphi-Quellcode:

var ActiveEdit: TEdit //global / form-member

procedure TForm1.Edit1SetFocus(sender: TObject);
begin
ActiveEdit = Sender as TEdit;
end;

Diese Prozedur musst du dann bei allen edits als "getfocus" oder "setfocus"-event eintragen (irgendwie so heisst das)

Wenn du dann auf deiner bildschirmtatatur allen tastenbuttons als Tag-property den ASCII-Wert des Buchstabens zuordnest, gehts (fast) genauso:

Delphi-Quellcode:

procedure TForm1.KeyButtonCLick(Sender: TObject);
begin
ActiveEdit.text = ActiveEdit.Text + chr((Sender as TControl).Tag) //chr wandelt eine zahl in den entsprechenden character um
end;

//edit: nach deinem code: einfach auf Form1.ActiveControl.text zureifen.

// edit2: ist form1.activecontrol eine variable, die auomatishc von der form erzeugt wurde? dann wird dir die zuweisung nichts helfen, weil sie beim klick auf den button sofort überschrieben wird.