|
Вопрос # 3 531/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты и знатоки Делфи! У меня такой вопрос: Имеется три лейбла и три фигуры. Теперь подскажите мне пожалуйста как можно сделать так чтоб при наведений мыши к лейблу цвет у фигуры менялись в другой цвет. Если не составить труда покажите пример процедуры "при наведений курсора". Заранее БОЛЬШОЕ Всем спасибо!!!
 |
Вопрос задал: Beknur (статус: Посетитель)
Вопрос отправлен: 16 декабря 2009, 08:40
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: min@y™
Ну, раз TShape, тогда вот примерно так:
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Tag:= Integer(Shape1);
Label2.Tag:= Integer(Shape2);
Label3.Tag:= Integer(Shape3);
end;
procedure TForm1.Label1MouseEnter(Sender: TObject);
var
Shape: TShape;
begin
Shape:= TShape(TLabel(Sender).Tag);
Shape.Brush.Color:= clRed;
end;
procedure TForm1.Label1MouseLeave(Sender: TObject);
var
Shape: TShape;
begin
Shape:= TShape(TLabel(Sender).Tag);
Shape.Brush.Color:= clWhite;
end;
На форме лежат 3 TLabel и 3 TShape. Дальше - по коду.
К ответу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки ответа)
 |
Ответ отправил: min@y™ (статус: Доктор наук)
Время отправки: 16 декабря 2009, 09:05
Оценка за ответ: 5
Комментарий к оценке: Спасибо БОЛЬШОЕ
|
Мини-форум вопроса
Всего сообщений: 4; последнее сообщение — 14 мая 2014, 19:01; участников в обсуждении: 3.
|
|
min@y™ (статус: Доктор наук), 16 декабря 2009, 08:52 [#1]:
А фигуры - это TShape?
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
|
|
Beknur (статус: Посетитель), 16 декабря 2009, 08:55 [#2]:
Да
|
|
zvygin1964 (статус: Посетитель), 14 мая 2014, 18:11 [#3]:
А произвольной формы кнопки бывают, или их надо изобретать как эту форму (см. далее)?
procedure TForm1.FormCreate(Sender: TObject);
var rgn, ResRgn: HRGN;
x, y, xFirst: Integer;
begin
ResRgn:=CreateRectRgn(0,0,0,0);
for y:=0 to Image1.Height-1 do
begin
x:=0;
while x<Image1.Width-1 do
begin
if Image1.Canvas.Pixels[x,y]=RGB(0,0,0) then
begin
xFirst:=x ;
x:=x+1;
while (x<Image1.Width-1) and (Image1.Canvas.Pixels[x,y]=RGB(0,0,0)) do
x:=x+1;
rgn:=CreateRectRgn(xFirst,y,x,y+1);
CombineRgn(ResRgn, ResRgn,rgn, RGN_OR);
DeleteObject(rgn);
end;
x:=x+1;
end;
end;
SetWindowRgn(Handle, ResRgn, True);
end;
|
|
|
min@y™ (статус: Доктор наук), 14 мая 2014, 19:01 [#4]:
Цитата (zvygin1964):
А произвольной формы кнопки бывают, или их надо изобретать как эту форму (см. далее)?
Бывают, но поверь мне: нет ничего лучше обычной кнопки. Не надо тебе наворотов, ты не шаришь в элементарном программировании.
Посмотреть, конечно, можно. Но сильно не советую. Почитай книжку лучше. Или пива попей.
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
