|
Вопрос # 5 810/ вопрос решён / |
|
Здравствуйте, уважаемые эксперты!
подскажите пожалуйста как сделать вот такое:
на форме есть Label1 как сделать такое как в Windows переименование папок клацнул мышкой по тексту появляется редактирование текста,клацнул по пустому месту формы или нажал ентер и текст изменился в компоненте.
 |
Вопрос задал: casio (статус: Посетитель)
Вопрос отправлен: 11 декабря 2011, 22:34
Состояние вопроса: решён, ответов: 2.
|
Ответ #1. Отвечает эксперт: min@y™
Вот, посмотри, как это выглядит на практике.
Пример сделан на коленке за пару минут.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 12 декабря 2011, 14:29
|
Ответ #2. Отвечает эксперт: Ханов Азат
Здравствуйте, victor_as!
Визуально подставляй при клике по TLabel - TEdit и при событии OnExit возвращай все на место
 |
Ответ отправил: Ханов Азат (статус: 1-ый класс)
Время отправки: 15 декабря 2011, 06:28
|
Мини-форум вопроса
Всего сообщений: 7; последнее сообщение — 15 декабря 2011, 08:11; участников в обсуждении: 3.
12 декабря 2011, 11:38: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Delphi » Работа с компонентами и библиотеками модератором Ерёмин А.А.
|
|
min@y™ (статус: Доктор наук), 12 декабря 2011, 11:53 [#1]:
Убери Label, положи TEdit.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
min@y™ (статус: Доктор наук), 12 декабря 2011, 11:57 [#2]:
Смастерил пример, после обеда выложу.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
casio (статус: Посетитель), 12 декабря 2011, 13:51 [#3]:
min@y™: спасибо я допер как сделать, по клику показываю едит поверх Label после ввода текста скрываю едит!
|
12 декабря 2011, 13:52: Статус вопроса изменён на решённый (изменил автор вопроса — casio)
|
|
min@y™ (статус: Доктор наук), 12 декабря 2011, 14:26 [#4]:
Цитата (casio):
спасибо я допер как сделать, по клику показываю едит поверх Label после ввода текста скрываю едит!
Балбес! Я написал тебе пример, где нету Label.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
12 декабря 2011, 14:27: Вопрос вновь открыт (изменение состояния произвёл min@y™)
|
DNK (статус: Студент), 12 декабря 2011, 14:41 [#5]:
Я бы слегка доработал:
procedure TForm1.EditEnter(Sender: TObject);
begin
with Sender as TEdit do begin
Ctl3D := true;
BorderStyle := bsSingle;
Color := clWindow;
end;
end;
procedure TForm1.EditExit(Sender: TObject);
begin
with Sender as TEdit do begin
Ctl3D := false;
BorderStyle := bsNone;
Color := clBtnFace;
end;
end;
"Digital Networked Knight"
|
|
|
casio (статус: Посетитель), 14 декабря 2011, 16:03 [#6]:
min@y™: спасибо конечно, но есть одно НО! У меня на форме есть Image, в котором разные картинки! По этому это вариант не подходит, если бы едит был прозрачным как label тогда бы +! а так мой метод лучше подходит показать едит ввести текст а потом скрыть его а label := едит!
|
|
|
min@y™ (статус: Доктор наук), 15 декабря 2011, 08:11 [#7]:
Цитата (casio):
У меня на форме есть Image, в котором разные картинки! По этому это вариант не подходит
Ну откуда ж я мог это знать?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
16 декабря 2011, 15:28: Статус вопроса изменён на решённый (изменил автор вопроса — casio)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
