Animate
Мастера помогите. Как щелчком по компоненте Animate открыть новое окно? У Animate нет такого события. Пробовал сверху положить Label. Но Label располагается только под Animate. Если на Animate положить Button, то не удается сделать кнопку прозрачной. Существует ли прозрачный компонент, который можно расположить над Animate и у которого есть событие OnClick? Или хотя бы OnMouseMove.
Не надо ничего никуда класть.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs,
ComCtrls;
type
TFake = class (TControl);
TForm1 = class(TForm)
Animate1 TAnimate;
procedure FormCreate(Sender TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure OnDblClick (Sender TObject);
end;
var
Form1 TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender TObject);
begin
TFake (Animate1).OnDblClick = OnDblClick;
end;
procedure TForm1.OnDblClick(Sender TObject);
begin
ShowMessage ('Clicked!');
end;
end.
[ Это Сообщение было отредактировано Разьярённое_x77 в 2002-01-14 1033 ]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs,
ComCtrls;
type
TFake = class (TControl);
TForm1 = class(TForm)
Animate1 TAnimate;
procedure FormCreate(Sender TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure OnDblClick (Sender TObject);
end;
var
Form1 TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender TObject);
begin
TFake (Animate1).OnDblClick = OnDblClick;
end;
procedure TForm1.OnDblClick(Sender TObject);
begin
ShowMessage ('Clicked!');
end;
end.
[ Это Сообщение было отредактировано Разьярённое_x77 в 2002-01-14 1033 ]
т.е. в зависимости от того, какие свойства нужны, TFake можно объявить как class (TWinControl), class (TControl) и т.д., получая, соответственно, доступ ко всем их свойствам, методам или событиям.