Anzeigen wo der Focus ist?

Rund um die LCL und andere Komponenten

Anzeigen wo der Focus ist?

Beitragvon TT73GP7 » 23. Jan 2018, 19:11 Anzeigen wo der Focus ist?

Hallo zusammen,

ich habe eine Form mit ganz vielen Edit Feldern.
Nun möchte ich Anzeigen welches der Felder nun grade den Focus hat.



wie geht denn sowas?
TT73GP7
 
Beiträge: 226
Registriert: 29. Mär 2016, 19:45

Beitragvon Mathias » 23. Jan 2018, 20:16 Re: Anzeigen wo der Focus ist?

Dies sollte mit den Ereignissen OnEnter und OnExit gehen.

Mit diesem Mini beispiel kann du es automatisch auf alle Edit-Felder anwenden.

Code: Alles auswählen
unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
 
type
 
  TEdit = class(StdCtrls.TEdit)
    procedure DoEnter; override;
    procedure DoExit; override;
  end;
 
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
  private
    { private declarations }
  public
    { public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
procedure TEdit.DoEnter;
begin
  inherited DoEnter;
  Color := $FF;
end;
 
procedure TEdit.DoExit;
begin
  inherited DoExit;
  Color := $FFFF;
end;
 
end.
Mit Lazarus sehe ich gün
Mit Java und C/C++ sehe ich rot
Mathias
 
Beiträge: 4327
Registriert: 2. Jan 2014, 17:21
Wohnort: Schweiz
OS, Lazarus, FPC: Linux (die neusten Trunc) | 
CPU-Target: 64Bit
Nach oben

• Themenende •

Zurück zu Komponenten und Packages



Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast

porpoises-institution
accuracy-worried