Hallo!
Also ich habe folgendes Problem:
Ich habe in einer Klasse(geerbt von TImage) einen constructor erstellt. In ihm will ich jetzt das OnClick-Ereignis mit meiner procedure anzeigeText gleichsetzten.
Ih will also , dass immer wenn auf mein Objekt geklickt wird, die procedure anzeigeText ausgeführt wird.
Ich hab keine Plan und suche schon seid Stunden, allerdings ist die Delphi hilfe nicht sonderlich brauchbar.
Hier der Quelltext der Klasse:
Delphi-Quellcode:
unit uTGegenstaende;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ExtCtrls, StdCtrls, uTPerson;
type TGegenstand=class(TImage)
constructor create(Owner: TWinControl; aktName:
String; aktxPos,aktyPos:Integer);
public
Name:
String;
Bild: TPicture;
xPos, yPos: Integer;
Hilfsvar:TGegenstand;
//procedure anzeigeText; override;
end;
implementation
constructor TGegenstand.create(Owner: TWinControl; aktName:
String; aktxPos,aktyPos:Integer);
begin
inherited create(Owner);
//ruft TImage auf
parent:=Owner;
top:=aktyPos;
left:=aktxPos;
Bild:=Picture.Create;
Bild.LoadFromFile(aktName);
Picture:=Bild;
Transparent:=true;
AutoSize:= True;
//Hilfsvar.create;
OnMouseMove:=anzeigeText;
end;
{
procedure TGegenstand.OnMouseMove;
begin
anzeigeText;
end;
procedure TGegenstand.anzeigeText(Sender:TObject);
begin
inherited anzeigeText;
begin
//Owner.lblKuecheText.caption:='Ein Glas mit schwebenden Augen';
end;
end;
}
end.
ICH HOFFE, IHR KÖNNT MIR HELFEN!!!
DANKE
GRuß,Natascha