huch, wie konnte das passieren? Ich kopierte das Link.
Um es für alle Zeiten "sicher" zu machen, das ist es, was dort zu finden ist:
Delphi-Quellcode:
ActiveControl (Delphi)
Description
Place a TTimer
object on the form
and enter Timer1Timer
in the OnTimer event. Place other controls
on the form
and change the active control at run time. The following event handler responds
to timer events by moving the active control one pixel
to the right every 100 milliseconds.
Code
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := 100;
if ActiveControl <>
nil then
ActiveControl.Left := ActiveControl.Left + 1;
end;
Uses
Vcl.Forms.TCustomForm.ActiveControl ( fr | de | ja )
Vcl.ExtCtrls.TTimer.OnTimer ( fr | de | ja )
Vcl.ExtCtrls.TTimer.Interval ( fr | de | ja )
Vcl.Controls.TControl.Left ( fr | de | ja )
Und dieser Mann machte mich ganz nervös, weil er so langsam sprach, doch danch hatte ich es wirklich verstanden:
https://www.youtube.com/watch?v=kAcCCiwMMmI