PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
11730 | 00/06/13 16:49:39 | RE(3):PB7.0: ホームキーを押したときにWindowのTab順序が10の所にカーソルセットしたい By ぷくぷく |
11693 | 00/06/10 02:22:35 | RE(2):PB7.0: ホームキーを押したときにWindowのTab順序が10の所にカーソルセットしたい By Taka |
11686 | 00/06/09 18:16:42 | RE(1):PB7.0: ホームキーを押したときにWindowのTab順序が10の所にカーソルセットしたい By M.M |
11680 | 00/06/09 17:04:52 | PB7.0: ホームキーを押したときにWindowのTab順序が10の所にカーソルセットしたい By ぷくぷく |
カテゴリ:PowerBuilderの開発環境
日付:2000年06月10日 02:22 発信者:Taka
題名:RE(2):PB7.0: ホームキーを押したときにWindowのTab順序が10の所にカーソルセットしたい
ぷくぷくさん、おはようございます。
>ホストのエミュレータ等でHOMEキー押下したときに一番左上のカーソル(editmask)にセットしたいのですが、どうす
>ればいいのでしょうか?
「一番左上のカーソルにセットしたい」の意味が解らないのですが、
「一番低いタブ番号を持つコントロールにフォーカスをセットしたい」のであれば、
以下のようなウィンドウ関数を作っておくと便利です。
-----
// ウィンドウ内の最初のTabOrderを持つコントロールにフォーカス移動する
Integer c#, m#, tab = 32767
DragObject dmy, ctrl
m# = UpperBound( This.Control )
For c# = 1 To m#
Choose Case This.Control[c#].TypeOf()
Case Line!, Oval!, Rectangle!, RoundRectangle!
Case Else
dmy = This.Control[c#]
If dmy.TabOrder > 0 And dmy.TabOrder < tab Then
tab = dmy.TabOrder
ctrl = dmy
End If
End Choose
Next
If IsValid(ctrl) Then ctrl.SetFocus()
-----
※ 描画のみのコントロール(直線,楕円,長方形,丸長方形)が無いという前提なら、
上記 CASE文は不要です。
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows95
DBMS Oracle SQL*Net 8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.