danke, aber da ich mit komponenten-programmierung net so gut auskenne bin ihc nur soweit gekommen
Delphi-Quellcode:
unit AdvMainMenu;
interface
uses
Windows, Menus, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TAdvMainMenu =
class(TMainMenu)
private
{ Private-Deklarationen }
procedure LeftMouseButtonDown(
var Msg : TMouseInput);
message WM_LBUTTONDOWN;
procedure RightMouseButtonDown(
var Msg : TMouseInput);
message WM_RBUTTONDOWN;
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent);
override;
destructor Destroy;
override;
published
{ Published-Deklarationen }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Standard', [TAdvMainMenu]);
end;
constructor TAdvMainMenu.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
destructor TAdvMainMenu.Destroy;
begin
inherited Destroy;
end;
Wie muss denn der Code für die Prozeduren aussehen! Wichtig ist auch das ein Sender vorhanden ist, damit ich auch weiß auf welchen item geklickt wurde!
kannst mir da noch weiter helfen???