Изменение Label

← →
alexdn © (2011-07-21 10:44) [0]

Подскажите плиз можно ли как-нибудь (свойствами или др) сделать так, чтобы текст label можно было менять непосредственно.. на edit очень не хочется переходить..

← →
Andy BitOff © (2011-07-21 10:48) [1]

Не, я нормальный... Но иногда так хочется странного...

← →
Игорь Шевченко © (2011-07-21 10:53) [2]

> текст label можно было менять непосредственно

label.caption := "желаемый текст";

вполне себе непосредственно

← →
alexdn © (2011-07-21 10:55) [3]

> Игорь Шевченко © (21.07.11 10:53) [2]
>
> > текст label можно было менять непосредственно
>
>
> label.caption := "желаемый текст";
Ну пользователь же так не напишет..

← →
Dennis I. Komarov © (2011-07-21 11:00) [4]

TLabel.OnMouseClick:
TLabel(Sender).visible:=false;
Edit:=TEdit.Create;
Edit.Координаты:=TLabel(Sender).Координаты;
Edit.Шрифты_и_т_п:=TLabel(Sender).Шрифты_и_т_п;
Edit.всякие_стили:=нужные

В свойстве эдита обратное превращение

← →
И. Павел © (2011-07-21 11:02) [5]

> [0] alexdn © (21.07.11 10:44)

Можно при OnClick по Label создавать над ним Edit и как только пользователь изменит текст в Edit, менять его и в label. В после того, как Edit покинет фокус, удалять временный Edit.

Хотя, наверное, лучше все же заменить (если Label-ов много - написать программу, проходящую dfm и pas файлы).

← →
DiamondShark © (2011-07-21 11:02) [6]

> alexdn © (21.07.11 10:55) [3]

Так тебе непосредственно, или пользователь?

Если "как-нибудь (свойствами или др) ... менять непосредственно", то тебе написали то что просил.

А если пользователь, то TEdit. Он как раз для изменения текста пользователем и сделан.

Если совсем странного хочется, то напиши свой компонент.

← →
alexdn © (2011-07-21 11:02) [7]

> Dennis I. Komarov © (21.07.11 11:00) [4]
спасибо, подумаю..

← →
И. Павел © (2011-07-21 11:02) [8]

)) вот буквально в эдите поменять border и фон..)

transporent?

Ан нет у эдита transparent-a. Надо извращаться...

Изменение Label Найти похожие ветки