sal1150
asked on
tlable and the mouse
I want to change my lable color if the mouse....
1-over it >>>>>red color.
2-click it >>>>>green color.
3-leave it >>>>white color.
1-over it >>>>>red color.
2-click it >>>>>green color.
3-leave it >>>>white color.
Instead of
procedure TForm1.Label1Click(Sender:
better may be
procedure TForm1.Label1MouseDown(Sen
Shift: TShiftState; X, Y: Integer);
begin
Label1.Color := clWhite;
end;
Homework????
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
procedure Label1MouseEnter(Sender: TObject);
procedure Label1MouseLeave(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Label1MouseEnter(Se nder: TObject);
begin
label1.font.Color := clRed;
end;
procedure TForm1.Label1MouseLeave(Se nder: TObject);
begin
label1.font.Color := clWhite;
end;
procedure TForm1.Label1Click(Sender: TObject);
begin
label1.font.Color := clGreen;
end;
end.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
procedure Label1MouseEnter(Sender: TObject);
procedure Label1MouseLeave(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Label1MouseEnter(Se
begin
label1.font.Color := clRed;
end;
procedure TForm1.Label1MouseLeave(Se
begin
label1.font.Color := clWhite;
end;
procedure TForm1.Label1Click(Sender:
begin
label1.font.Color := clGreen;
end;
end.
Or better may be
procedure TForm1.Label1MouseLeave(Se nder: TObject);
begin
if Sender is TLabel then
(Sender as TLabel).Color := clRed;
end;
procedure TForm1.Label1MouseLeave(Se
begin
if Sender is TLabel then
(Sender as TLabel).Color := clRed;
end;
Do You mean Label color or Label.Font Color?
ASKER
sorry mokule
I mean Label Label.Font Color .
I mean Label Label.Font Color .
ASKER
SORRY mokule
I mean Label.Font Color .
I mean Label.Font Color .
Never mind ;-)
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Hi d1kGroup,
What new here?
Marek
What new here?
Marek
begin
Label1.Color := clRed;
end;
procedure TForm1.Label1MouseEnter(Se
begin
Label1.Color := clGreen;
end;
procedure TForm1.Label1Click(Sender:
begin
Label1.Color := clYellow;
end;