//Merhaba aşağıda yaptığım program sadece editler için değil
//diğer vcl componentler içinde geçerli.
//Hangi editte olduğunu sarı ile boya çıktığında ise
// tekrar beyaz olur. Güzel bir çalışma
seydi73@hotmail.com
//not bütün editler EDIT1 controlunde birleşiyor.yani edit2, edit3...
//edit1'e bağlamanız gerek...iyi çalışmalar. Umarım işinize yarar.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
Edit9: TEdit;
Edit10: TEdit;
Label1: TLabel;
procedure Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Edit1Exit(Sender: TObject);
procedure Edit1Enter(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_UP Then //yukarı ok tuşu basıldığında basıldığında
Postmessage(Handle,WM_NEXTDLGCTL,1,0);
if key=VK_DOWN Then //aşağı ok tuşu basıldığında basıldığında
Postmessage(Handle,WM_NEXTDLGCTL,0,0);
End;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
TEdit(Sender).Color:=CLWhite;
if not Tedit(Sender).Modified Then
TEdit(Sender).Text:='';
end;
procedure TForm1.Edit1Enter(Sender: TObject);
begin
TEdit(Sender).Color:=CLYellow;
Label1.Caption:='Edit'+inttostr(TComponent(Sender).Tag);
TEdit(Sender).Text:=Label1.Caption;
end;
end.