Наследование класса, ошибка при inherited.

[alextrof94]

Занимаюсь все той же кнопкой PNG, только уже на основе TImage, так как предыдущая реализация вешала цп на 80-90%, решил не мудрить и покурил про классы и наследования.

type tPNGbutton = class(timage)
private
  pngN, pngM, pngP, pngO:tpngimage;
  n:integer;
  procedure CopyPNG(const PNGfrom, PNGto: TPNGimage; const Rfrom, Rto: TRect);
published
  Constructor create(atexture:string; obj:tcomponent);
  Destructor free;
end;

constructor tpngbutton.create(atexture:string; obj:tcomponent);
var pngbuf:tpngimage; m:integer;
begin
inherited create(obj);//ERROR AV
  pngN:=tpngimage.Create;
  pngM:=tpngimage.Create;
  pngP:=tpngimage.Create;
  pngO:=tpngimage.Create;
...
end;

Почему AV? В obj передаю форму.

[alextrof94]

Так проблема отпала. Оказывается создавал объект неправильно.

[alextrof94]

Появилась новая проблема. Не получается заменить MouseMove, чтоб выполнялось мое действие.

type tPNGbutton = class(timage)
private
  acaption:string;
  pngN, pngM, pngP, pngD:tpngimage; //фон
  n:integer;
  procedure CopyPNG(const PNGfrom, PNGto: TPNGimage; const Rfrom, Rto: TRect);
  procedure CopyPNGframe(const PNGfrom, PNGto: TPNGimage; const Rfrom, Rto: TRect);
  procedure setcapt(const Value: String);
  procedure recaption;
protected
  procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
published
  Constructor create(obj:tcomponent; atexture:string; aw,ah:integer);
  Destructor free;
public
  property caption :string read acaption write setcapt;
end;

pngM содержит несколько другое изображение, но оно не отображается.

procedure tPNGbutton.MouseMove(Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  picture.Bitmap.Assign(pngM);
  picture.Bitmap.Canvas.Brush.Style := bsClear;
  picture.Bitmap.Canvas.TextOUT(round((width/2)-(picture.Bitmap.Canvas.TextWidth(acaption)/2)),round((height/2)-(picture.Bitmap.Canvas.Textheight(acaption)/2)),acaption);
end;

[xrob]

alextrof94, а вы попробуйте от TPanel унаследоваться, как это сделал я:

TWinBase = class(TPanel)
// это процедура, обрабатывающая сообщение от винды
private // она должна быть видима только в этом классе
procedure MsgMouseMove  (var Message:TWMMouse); message WM_MOUSEMOVE;

// а это - моя процедура, в которой происходит обработка события
protected // видима во всех наследниках
procedure MouseMove(X,Y:integer);   virtual; // она будет перекрываться в наследниках
end;

implementation

procedure TWinBase.MsgMouseMove(var message: TWMMouse);
begin
// здесь только переправляем событие в соотв. процедуру и все.
MouseMove(message.XPos, message.YPos);
end;


procedure TWinBase.MouseMove(X,Y:integer);  
begin
// реакция вашего компонента
// эта процедура будет вызываться в случае сообщения WM_MOUSEMOVE
end;

я сделал базовый класс, для ВСЕХ своих визуальных компонентов.
каждый новый компонент наследует TWinBase и перекрывает в нем нужные методы:

TMyButton = class(TWinBase)
protected
procedure MouseMove(X,Y:integer); override;

end;

implementation


procedure TMyButton .MouseMove(X,Y:integer);  
begin
inherited; // реакция предка
// реакция вашего компонента
end;

аналогично делаются обработчики для всех других событий

[alextrof94]

Сообщение от xrob

alextrof94, а вы попробуйте от TPanel унаследоваться

проще в данном случае мне на данном этапе все же работать с TImage, так как раньше кнопки и вообще GUI на них делал. Вопрос: почему не работает MouseMove?

Сделал по Onclick чтоб в Caption рисовались координаты и размер, все в норме. Но картинка не переназначается(

procedure tPNGbutton.MyMouseMove(X, Y: Integer);
begin
  picture.Bitmap.Assign(pngM);
  picture.Bitmap.Canvas.Brush.Style := bsClear;
  picture.Bitmap.Canvas.TextOUT(round((width/2)-(picture.Bitmap.Canvas.TextWidth(acaption)/2)),round((height/2)-(picture.Bitmap.Canvas.Textheight(acaption)/2)),acaption);
end;

procedure tPNGbutton.MsgMouseMove(var Message: TWMMouse);
begin
  MyMouseMove(message.XPos, message.YPos);//перехват сообщения о движении мыши, как это было показано у вас.
end;

[alextrof94]

Стоп. Вы предлагаете базировать элемент на twinbase, а на нем уже создать Timage?

[eval]

Destructor free;

расстрел с конфискацией.

[alextrof94]

Сообщение от eval

расстрел с конфискацией.

не надо расстрел, я только учусь.

[alextrof94]

Пффф. Опять нашел ошибку у себя. Я просто забывал указывать "папу".

[eval]

для разговора самим с собой, форум - лишнее звено.