为什么我的statusbar没有反应

Question

看看你的StatusBar1的simpletext的属性是否设置为True了
(是simpletext还是simplepanel什么的我记不清了,反正应该是这个属性)

Answer 1

没有啊，STATTUSBAR 已经分割成两半了

Answer 2

窗体的 KeyPerview:=True;

Answer 3

//建议用in
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ssShift in Shift then
    StatusBar1.Panels[0].Text := 'Shift';
  if ssAlt in Shift then
    StatusBar1.Panels[1].Text := 'Alt';
end;

Answer 4

直接设置各个Panel的Text看看是否有显示(在设计期完成)

Answer 5

窗体的keypreview 要设为true.

Answer 6

窗体的 KeyPerview:=True;
窗体的 KeyPerview:=True;
窗体的 KeyPerview:=True;
窗体的 KeyPerview:=True;
窗体的 KeyPerview:=True;