Изменить компонент Delphi
читаю пособия, но там другие примеры, по этому только путаница возникает
пока только так написал, исправьте меня хотя бы на этом уровне:
unit MyUpDown;
interface
uses
SysUtils, Classes, Controls, ComCtrls;
type
TMyUpDown = class(TUpDown)
private
{ Private declarations }
FMin: Extended;
FMax: Extended;
FIncrement: Extended;
FPosition: Extended;
procedure SetMin(Value: Extended);
procedure SetMax(Value: Extended);
procedure SetIncrement(Value: Extended);
procedure SetPosition(Value: Extended);
protected
property Min: Extended read FMin write SetMin default 0.0;
property Max: Extended read FMax write SetMax default 100.0;
property Increment: Extended read FIncrement write SetIncrement default 0.1;
property Position: Extended read GetPosition write SetPosition default 0.0;
public
{ Public declarations }
constructor Create(AOwner:TComponent);override;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('MyComponents', [TMyUpDown]);
end;
end.
overload свойства выглядит сомнительно.. Можно попробовать его скрыть а затем реимплементить, или завести другое.
Цитата: Phodopus
Можно попробовать его скрыть а затем реимплементить
скрыть как? просто прописать в Private? ..а потом прописать в основном коде с новым типом данных или как?
Да,возможно через промежуточный класс. Я бы завел другое свойство конечно..