Piszę komponent nie wiem jak zrobić żeby wywołać daną procedurę podczas wyłączania programu (OnClose) proszę o odp.... ;-( ;-( ;-(
0
0
daj to w destroy komponentu. albo jeśli ten komponent jest widoczny lub ma okienkowe handle to wystarczy że bedzie reagował na WM_Destroy.
0
Chodzi mi że kiedy wkleje mój komponent do programu
to żeby wywoływał daną procedurkę np. jakiś komunikat....
gdy wyłącze główną formę programu w którym znajduje się mój komponent.... :-/ :-/ ;-(
0
unit FloatClose;
interface
uses
Windows, Messages, SysUtils, Classes, Forms;
type
TFloatClose = class(TComponent)
private
{ Private declarations }
FTime: Integer;
protected
{ Protected declarations }
public
{ Public declarations }
Constructor Create(AOwner : TComponent); override;
procedure FloatClose;
published
{ Published declarations }
property Time: Integer read FTime write FTime;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Standard', [TFloatClose]);
end;
Constructor TFloatClose.Create(AOwner: TComponent);
begin
inherited;
FTime:=100;
end;
procedure TFloatClose.FloatClose;
begin
Application.MainForm.AlphaBlend:=True;
Application.MainForm.AlphaBlendValue:=Application.MainForm.AlphaBlendValue-50;
Sleep(Time);
Application.MainForm.AlphaBlendValue:=Application.MainForm.AlphaBlendValue-50;
Sleep(Time);
Application.MainForm.AlphaBlendValue:=Application.MainForm.AlphaBlendValue-50;
Sleep(Time);
Application.MainForm.AlphaBlendValue:=Application.MainForm.AlphaBlendValue-50;
Sleep(Time);
Application.MainForm.AlphaBlendValue:=Application.MainForm.AlphaBlendValue-50;
Sleep(Time);
Application.MainForm.AlphaBlendValue:=Application.MainForm.AlphaBlendValue-5;
Application.Terminate;
end;
end.
No to jest ten kod
0
nie wiem po co to komu, ale jak bardzo chcesz, ty w onclose daj to
komponent.floatclose;
action:=caFree;
i bedzie działać, w komponencie nic nie trzeba modyfikowac