Проблема с созданием TpaintBox на TPanel
Вопрос
У меня небольшая проблема. Я пытаюсь создать TpaintBox на TPanel, как это:
procedure TForm1.mkPaint(S: string);
var PB: TPaintBox;
begin
PB := TPaintBox.Create(Self);
with PB do
begin
Parent := Panel1;
Visible := True;
Name := S;
Height := 100;
Width := 100;
Left := 8;
Top := 8;
// ParentColor := False;
Brush.Style := bsSolid;
Brush.Color := $00000000;
end;
Application.ProcessMessages;
end;
Теперь, если я изменю родителей PaintBox в форму1, я могу видеть кисть. Но с родителем изменился на панель1, ничего не происходит. Любая идея о том, как я могу это исправить?
Заранее спасибо!
Нет правильного решения
Другие советы
Является ли TPanel видимым для начала?
Также нет публики Brush
Собственность (возможно, вы думаете о TShape?). Twincontrol делает, но TpaintBox не является потомком Twincontrol. Это тглофикконтрольный потомк.
Да, это была ошибка в моей. Я изменил код:
pb := TPaintBox.Create(self);
with pb do begin
Parent := Form1;
Visible := true;
Top := 1;
Left := 1;
Width := 250;
Height := 100;
ParentColor := false;
Canvas.Brush.Color := clBlack;
Canvas.Font.Size := 12;
Canvas.Font.Color := clWhite;
Canvas.FillRect(ClientRect);
Canvas.TextOut(1, 1, 'test');
end;
Но без успеха..
Не связан с StackOverflow