Здравствуйте, lgb, Вы писали:
lgb>Здравствуйте, Poter, Вы писали:
P>>Ты наверное прикалываешся!!!
P>>Объявляешь FlagEnter глобально!!!
lgb>Какую роль тут выполняет глобальный флаг, если и при 0 и при 1 делается одно и то же? 
lgb>P>procedure TForm1.FormCreate(Sender: TObject);
P>>begin
P>> FlagEnter := 0;
P>>end;
P>>procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
P>>Var
P>> mycolor: TColor;
P>>begin
P>> If Key = #13 then
P>> Begin
P>> If FlagEnter = 0 then
P>> Begin
P>> mycolor := Edit3.Font.Color;
P>> Edit3.Font.Color := Edit3.Color;
P>> Edit3.Color := mycolor;
P>> FlagEnter := 1;
P>> end
P>> Else
P>> If FlagEnter = 1 then
P>> Begin
P>> mycolor := Edit3.Font.Color;
P>> Edit3.Font.Color := Edit3.Color;
P>> Edit3.Color := mycolor;
P>> FlagEnter := 0;
P>> end;
P>> end;
P>>end;
Ну как видишь я в программировании не очень!!!
А говорил чо неделю мучился!!!
Да, можно и просто:
Var
mycolor: TColor;
begin
If Key = #13 then
Begin
Begin
mycolor := Edit3.Font.Color;
Edit3.Font.Color := Edit3.Color;
Edit3.Color := mycolor;
end;
end;
Во прикольная оптимизмция
