我想请教各位以下两个问题    1）怎样设计一些特殊形状的窗体？我查找过许多贴子，发现大家介绍用WINAPI来做，但我发现太复杂了。想找一些组件来实现，可是这些组件要先引入一个BMP图，然而这样程序的大小增加了不少，而且移动时很慢。    2）我想找能实现以下功能的组件。 该组件是一个输入组件，但这个组件的输入栏要根据某个字符串用下划线绘出。例如，如果设定固定的字符串为

'ABC, efg, h.'

则组件上应显示

        ,        ,  .

显后光标停在第一个空格上等待用户输入。如果用户输入的字母符合字串相应位置上的字母，则组件在相应的位置上显示出来，然后光标右移一位，否则在原位上继续等符下次输入。请问这种功能怎样实现？ 發表人 - mchakuna 於 2005/01/27 23:18:01 發表人 - mchakuna 於 2005/01/27 23:21:04

針對第一個問題，請查閱 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=56690 很清楚了。不需要 Component 在 FromCreate 創建，後釋放。即可。 第二個問題，可能沒有那麼剛好的控件吧！ 或用 MaskEdit 在KeyPress 自行判斷就好了！ 不需要搞得那麼複雜!

引言: 針對第一個問題，請查閱 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=56690 很清楚了。不需要 Component 在 FromCreate 創建，後釋放。即可。 第二個問題，可能沒有那麼剛好的控件吧！ 或用 MaskEdit 在KeyPress 自行判斷就好了！ 不需要搞得那麼複雜!

谢谢你的快速回应。我不太明白第二个问题的处理方法，如果我是用maskedit并在keypress处自行读取接键，但如果该按键按下的字母不对，如何禁示光标移动？

引言: 針對第一個問題，請查閱 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=56690 很清楚了。不需要 Component 在 FromCreate 創建，後釋放。即可。 第二個問題，可能沒有那麼剛好的控件吧！ 或用 MaskEdit 在KeyPress 自行判斷就好了！ 不需要搞得那麼複雜!

谢谢你的快速回应。 第一个问题应该解决了。谢谢！但我还想问，有没有方法设计一些不规则形状的button? 我不太明白第二个问题的处理方法，如果我是用maskedit并在keypress处自行读取接键，但如果该按键按下的字母不对，如何禁示光标移动？

事實上，依樣畫葫蘆。只要是控件繼承自TWinControl 即可。 帶入該 TButton 的 Handle 即可。 第二個問題。 但如果該按鍵按下的字母不對，如何禁示光標移動？ 直接給予 Key := #0 。遮蔽按鍵 如： procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char); begin if Key=#32 then Key :=#0 end; 遮蔽空白鍵