Скачать: CL | DM;

Ошибка в коде   Найти похожие ветки 

← →
hatchy ©   (2003-02-15 14:24) [0]

procedure TForm1.FormActivate(Sender: TObject);
var rgn, rgn2 :HRGN;
begin
rgn := CreateRectRgn(0, 0, 41, 41);
rgn2 := CreateEllipticRgn(5, 5, 37, 37);
CombineRgn(rgn2, rgn, rgn2, RGN_DIFF);
CombineRgn(rgn, rgn, rgn2, RGN_DIFF);
SetWindowRgn(speedbutton1.handle, rgn, true);
end;
Почему в этом коде моей делфи не нравится слово Handle?

---

← →
Романов Р.В. ©   (2003-02-15 14:32) [1]

у TSpeedButton нет handle

---

← →
hatchy ©   (2003-02-15 14:38) [2]

А как мне быть может что можно другое сделать? со speedbutton?

---

← →
Романов Р.В. ©   (2003-02-15 14:49) [3]

Написать потомка, перекрыть метод Paint

---

← →
hatchy ©   (2003-02-16 19:35) [4]

А можно рассмотреть пример кода?

---

← →
hatchy ©   (2003-02-17 13:32) [5]

??????

---

← →
Романов Р.В. ©   (2003-02-17 15:12) [6]

TNew = class(TSpeedButton)
protected
procedure Paint; override;
end;

procedure TNew.Paint;
begin
Canvas.Ellipse(0, 0, Width, Height);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
with TNew.Create(Self) do
begin
Parent := Self;
Top := 100;
Left := 220;
Width := 50;
Height := 50;
end;
end;

---

← →
Axis_of_Evil ©   (2003-02-17 15:18) [7]

Удалено модератором
Примечание: Личная переписка

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c