Свойства Объекта Font..........

[Rebel123]

Доброго Времени Суток. Не могу кое с чем разобраться.
К примеру могу вот так:

procedure TForm4.Label28Click(Sender: TObject);
begin
Label28.Font.Color:=clOlive;
end;

а вы не могли бы подсказать, как сделать на клике на Том же Label'e чтоб он его жирным ставил и подчеркивал) Я знаю что он делается через Font а что именно выбрать из его свойств не знаю

[Greblin]

Label28.Font.Style := [fsBold, fsUnderline]

[Rebel123]

а как сделать чтоб на MouseLeave убрать только [fsUnderline]?

[psycho-coder]

Ну, прально, Вы сначала снимаете все атрибуьы а потом ставить подчеркнутый.

Может так?:

procedure TForm4.Label28Click(Sender: TObject);
begin
Label28.Font.Style:=[fsBold];
end;

procedure TForm4.Label28MouseLeave(Sender: TObject);
begin
Label28.Font.Style:=[fsBold];
end;

procedure TForm4.Label28MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label28.Font.Style:=[fsUnderline, fsBold];
end;

[Rebel123]

Сообщение от psycho-coder

Ну, прально, Вы сначала снимаете все атрибуьы а потом ставить подчеркнутый.

Может так?:

procedure TForm4.Label28Click(Sender: TObject);
begin
Label28.Font.Style:=[fsBold];
end;

procedure TForm4.Label28MouseLeave(Sender: TObject);
begin
Label28.Font.Style:=[fsBold];
end;

procedure TForm4.Label28MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Label28.Font.Style:=[fsUnderline, fsBold];
end;

Ну получается что мне кликать вовсе не надо! навел мышаком и уже готово! а мне нужно чтоб именно кликом он ставился жирным а при MouseLeave только чтоб подчеркнутый вид уходил и жирный шрифт оставался

[psycho-coder]

Используйте семафоры:

var
  clicked: boolean;

procedure TForm4.FormCreate(Sender: TObject);
begin
  clicked := false;
end;

procedure TForm4.Label28Click(Sender: TObject);
begin
  Label28.Font.Style:=[fsBold];
  clicked := true;
end;

procedure TForm4.Label28MouseLeave(Sender: TObject);
begin
  if clicked then
    Label28.Font.Style:=[fsBold];
end;

procedure TForm4.Label28MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label28.Font.Style:=[fsUnderline, fsBold];
end;

[Rebel123]

Сообщение от psycho-coder

Используйте семафоры:

var
  clicked: boolean;

procedure TForm4.FormCreate(Sender: TObject);
begin
  clicked := false;
end;

procedure TForm4.Label28Click(Sender: TObject);
begin
  Label28.Font.Style:=[fsBold];
  clicked := true;
end;

procedure TForm4.Label28MouseLeave(Sender: TObject);
begin
  if clicked then
    Label28.Font.Style:=[fsBold];
end;

procedure TForm4.Label28MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Label28.Font.Style:=[fsUnderline, fsBold];
end;

из вашего кода ни чего не изменилось!

[psycho-coder]

Когда был щелчок мышью, свойство ставиться в fsBold
Потом вы его нигде убираете, я так понял вам нужно при клике поставить жирным, при наведении подчеркнутым, а при уводе мыши с объекта должен остаться жирным? Я Вас правильно понял? Если нет прошу разъяснить подробней что Вы хотите сделать

[blackstersl]

procedure TForm1.Label1Click(Sender: TObject);
begin
   label1.Font.Style := [fsBold,fsUnderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Font.Style := [fsBold];
end;

[Rebel123]

Сообщение от psycho-coder

Когда был щелчок мышью, свойство ставиться в fsBold
Потом вы его нигде убираете, я так понял вам нужно при клике поставить жирным, при наведении подчеркнутым, а при уводе мыши с объекта должен остаться жирным? Я Вас правильно понял? Если нет прошу разъяснить подробней что Вы хотите сделать

Навел просто мышкой - подчеркнулось
Кликнул по по нему - жирным стал
Мышак убрал от туда - подчеркнутый вид ушел, жирный вид остался! вот что мне надо)