小编Mic*_*ael的帖子

如何在Delphi 2010中制作Unicode程序？

我有英文Windows和"非Unicode程序的当前语言"也是英文.静态控件看起来不错,但如果我尝试更改它们(Label.Caption:='unicode value'或Memo.LoadFromFile(textFilename)),文本看起来像:$ ^ $&%*(#&#.

怎么解决？

需要你的帮助.

是否可以删除TabSheet(~4px)的边框？我使用PageControl作为开关面板而不是框架,窗户等.我希望一切都会是直的.

非常感谢您的帮助!

告诉我,问题出在哪里:

第一种形式:

procedure TForm2.N6Click(Sender: TObject);
var About:TAbout;
begin
 About:=TAbout.Create(Application);
 try
   About.ShowModal;
 finally
   About.Free;
 end;
end;

第二种形式:

procedure TAbout.Button1Click(Sender: TObject);
begin
 About.Close;
end;

关于About.Close我得到错误:EAccessViolation.我没有对表单关于做任何其他事情,关于的代码是空的,只需点击按钮.

我希望将一行换成灰色,另一行换成白色.
我有以下代码,但在Windows 7中
有垂直行列的空白区域.如何为所有行着色？

procedure TForm2.Update_ListBoxCustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
 if Item.Index mod 2=0
 then
  begin
   Sender.Canvas.Font.Color:=clBlack;
   Sender.Canvas.Brush.Color:=$F6F6F6;
  end
 else
  begin
   Sender.Canvas.Font.Color:=clBlack;
   Sender.Canvas.Brush.Color:=clWhite;
  end;
end;