[Delphi4 / WIN98] Aktive Komponente

[Anonym]

Ich möchte in Delphi etwas mit der Zwischenablage arebiten und etwas hineinkopieren. Das ist ja kein Problem mit CopyToClipboard. Das funktioniert aber nur, wenn ich weiß, wo der Benutzer etwas markiert hat. Z.B.: Memo1.CopyToClipboard

Wie finde ich jetzt aber raus, wenn ich beispielsweise 10 Edit-Komponenten habe und der Benutzer klickt auf einen Button Kopieren, in welches Edit er etwas eingegebn und markiert hat? Also, woher weiß ich, welche Komponente sozusagen aktiv ist???

Hoffe auf Antworten. Gruß Jens

[Jo1_a88223]

Hallo.

Hmm, soweit ich weiß, ist nach dem Klick auf den Copy-Button dieser die aktive Komponente.

Eine Lösung: für jedes Edit ein Copy-Button. In allen anderen Fällen ist es nie eindeutig, welches der User meinen könnte.

Wenn’s aber unbedingt so sein soll:
Du könntest im OnChange-Event der Editboxen eine Variable (von TForm1) auf den Sender setzen:

TForm1 = class(TForm)
…
LastModifiedEditBox : TEdit;
…
procedure EditBoxOnClick(Sender:TObject);
procedure CopyClick(Sender:TObject);
…
end;

procedure TForm1.EditBoxOnClick(Sender:TObject);
begin
LastModifiedEditBox := Sender;
end;

procedure TForm1.CopyClick(Sender:TObject);
begin
LastModifiedEditBox.CopyToClipboard;
end;

So sollte es gehen.

Als denn,
Jo