高分求救，不够再加，关于在TLabel上用Canvas.TextOut几个字符，可界面切换下字符就没了

Question

    with Label5.Canvas do
    begin
        Font.Color := clBlack;
        TextOut(0, 3, 'aaaa');        Font.Color := RGB(98, 94, 91);
        TextOut(10, 3, 'bbbb');
    end;

Answer 1

是没有了呀切换界面后windows相当于是给你重画了一次可以在取到接收焦点的消息后再textout

Answer 2

 如果用TextOut(),把该句加入到重载的OnDraw()函数中，这样，每次重画时都会显示你的文字了

Answer 3

发表于：2007-08-22 11:19:44  2楼 得分:0
  如果用TextOut(),把该句加入到重载的OnDraw()函数中，这样，每次重画时都会显示你的文字了
正解

Answer 4

怎么重载？继承TLABEL写个新的出来？

Answer 5

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if form1.Focused then
begin
with   Label1.Canvas   do
        begin
                Font.Color   :=   clBlack;
                TextOut(0,   3,   'aaaa ');                Font.Color   :=   RGB(98,   94,   91);
                TextOut(10,   3,   'bbbb');
        end;end;
end;

Answer 6

我shit....这样简单当然让他用简单的了哟
非要写你去
窗体的FormPaint事件写去也一样嘛
反正formpaint的最后都是调用ondraw

Answer 7

    * iuIRCClient
    * 我是老鹰
    * 等　级：
发表于：2007-08-22 17:45:20 9楼 得分:0
都一颗红星星了，怎么能想出这样的办法来呢？你这星星是怎么得来的？-----------
毛主席给的

Answer 8

在窗体的OnPaint中写上你那段代码

Answer 9

了解一下WINDOW的编程吧,如果你想进行比较底层的开发
不要光用RAD