Форум: "Потрепаться";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
ВнизОшибка в коде Найти похожие ветки
← →
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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c