Pisanie komponentu

0

Piszę komponent nie wiem jak zrobić żeby wywołać daną procedurę podczas wyłączania programu (OnClose) proszę o odp.... ;-( ;-( ;-(

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

1 użytkowników online, w tym zalogowanych: 0, gości: 1