Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mlspider,
30. Okt 2005
Problem hat sich erledigt.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mlspider,
30. Okt 2005
Sicher.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Timer1.Enabled:=True;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mlspider,
30. Okt 2005
Hallo,
Das ändern der Größe von TImage bei MouseMove ist eigentlich mit zwei Zeilen erledigt.
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Image1.Height:=160;
Image1.Width:=200;
end;