Edit1 e tıklandığını nasıl anlarız?

[izmirlikemal]

Selam

Örneğin önce edit1 e tıkladım. Daha sonra başka bir procedure de bu tıkladığım edit1 i kullanmak istiyorum. Ama edit1 e tıkladığımı nasıl anlarım.
örneğin if edit1...=true then .... gibi bir kodda kullanacağım. (clic)

[Senat0r]

Kod: Tümünü seç

var
tik:Boolean;

procedure TForm2.Button1Click(Sender: TObject);
begin
if tik then ShowMessage('Daha Önce edite tıklanmıştır...');

end;

procedure TForm2.Edit1Click(Sender: TObject);
begin
tik:=True;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
tik:=false;
end;

[izmirlikemal]

teşekkür ederim SenatOr