Delphi相談室その５

952 ：デフォルトの名無しさん：02/08/03 16:14

Del6のTStringsはDel3のTStringsより明らかに重い。

953 ：デフォルトの名無しさん：02/08/03 18:01

>>952
抽象クラスの実行速度なんぞ良くはかれたな。感動。

954 ：デフォルトの名無しさん：02/08/03 18:06

ソースが思いんだよ！タコ

955 ：デフォルトの名無しさん：02/08/03 18:13

>>954

>>953

956 ：デフォルトの名無しさん：02/08/03 18:15

抽象クラスにはソースファイル無いの？

957 ：デフォルトの名無しさん：02/08/03 18:21

>>956
な～に言ってんだか♪

958 ：デフォルトの名無しさん：02/08/03 18:23

褒められた！

959 ：デフォルトの名無しさん：02/08/03 19:24

http://www.google.co.jp/search?sourceid=navclient&hl=ja&q=cache:http%3A%2F%2Ffukunm12%2Enucl%2Ekyushu%2Du%2Eac%2Ejp%2F%7Eakasaka%2Fmemo%2Fdelphi%2Frightbutton%2Ehtml
で、NewProcをFormのメンバーに置くと、
「変数が必要です」
と言われてコンパイルできません。どうすればイイでしょうか？

960 ：デフォルトの名無しさん：02/08/03 20:33

>>959 こんなふうにして下さい
unit Unit1;
interface
uses　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,　StdCtrls;

type TForm1 = class(TForm)
　　Button1: TButton;
　　procedure Button1Click(Sender: TObject);
　　procedure FormCreate(Sender: TObject);
　private
　　procedure NewButtonProc(var Msg: TMessage);
　public
　　OldButtonProc:TWndMethod;
　end;

var Form1: TForm1;

implementation

{$R *.DFM}
procedure TForm1.NewButtonProc( var Msg: TMessage);
begin
　with Msg do
　 case Msg of
　　WM_RBUTTONDOWN: Msg := WM_LBUTTONDOWN;
　　WM_RBUTTONUP:　 Msg := WM_LBUTTONUP;
　 end;
　　OldButtonProc(Msg);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin　　 ShowMessage( 'こんにちは' );
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
　OldButtonProc:= Button1.WindowProc;
　 Button1.WindowProc:= NewButtonProc;
end;

end.

961 ：デフォルトの名無しさん：02/08/03 21:22

>>960
　なるほど。
しかし、FormのメンバーにNewProcを置くと、SetWindowLongは使えないと言う事ですか・・・。
これは何故ですか？

962 ：デフォルトの名無しさん：02/08/03 21:42

>>961

なんのこと？

963 ：デフォルトの名無しさん：02/08/03 22:33

>>961 SetWindowLongはメソッドではなく手続きしか登録出来ないからです
　ポインタが１つしか渡せないから、メソッドポインタを渡しても
　どのオブジェクトかを識別出来ません。

　MakeObjectInstance を使うとメソッドを手続きに仲介するコードを作らせる事が出来ますが・・・

詳しい仕掛けはここ参考にするといいでしょう
ttp://www.asahi-net.or.jp/~HA3T-NKMR/vcl3-1.htm

が、VCLを使うなら WindowProcプロパティを操作する方が簡単ですからそうした方がいいです

964 ：デフォルトの名無しさん：02/08/04 01:08

>>963
　オブジェクトが別の場合は別のアドレス空間になるのですか？
てっきり一つのプロセス内なら、アドレスは全て一つで表せるのかと・・・。
　うーん言いたい事がうまく伝わって無いかもしれない罠。

965 ：デフォルトの名無しさん：02/08/04 01:33

＞オブジェクトが別の場合は別のアドレス空間になるのですか？
とりあえずこの文章はおかしい

966 ：デフォルトの名無しさん：02/08/04 03:20

>>964
メソッドポインタは普通のポインタと違うんだよ。

967 ：デフォルトの名無しさん：02/08/04 04:24

>>966
指してるものは違えどポインタはポインタだろう。

968 ：デフォルトの名無しさん：02/08/04 05:57

OAPSというのもあるよ
参考：
http://www.uic.edu/depts/psch/aps/
http://www.pcaphl.org/oaps.html

969 ：デフォルトの名無しさん：02/08/04 08:54

どなたか、ModelMaker という UML を使われている方、いらっしゃいますか？
感触を知りたいのですが。

970 ：デフォルトの名無しさん：02/08/04 09:53

>>964
　オブジェクトは同じアドレス空間にあります。
　しかし、メソッドポインタは、命令コードと　データ領域の２つを示さなければいけません。

FormのメンバーにNewProcをおくと、NewProgは手続きではなくメソッドになります。
メソッドには隠れた引数があり、それはどのオブジェクトインスタンスであるかを示すものです
具体的にForm1である事を教える必要があります。

それから >>959の例だと、　実際に buttonをホントのサブクラス＝継承して動作を書き換える方が
簡単だと思います。

971 ：デフォルトの名無しさん：02/08/04 11:09

>>970
へぇ、C++みたいに隠されたthisポインタみたいなのがあるんだ。

972 ：デフォルトの名無しさん：02/08/04 12:03

Quick Report

973 ：デフォルトの名無しさん：02/08/04 12:05

Quick Reportのソースでは、パラメータクエリは使えないんですか？
直接SQLで記述するとうまくプレビュできるのですが、パラメータクエリにすると、真っ黒（っていうか灰色）のままなんですけど。

974 ：デフォルトの名無しさん：02/08/04 12:36

>>973
パラメータ値をセットしてないから。

975 ：デフォルトの名無しさん：02/08/04 12:59

>974

どもです。

いえいえ、セットしてます。構文も間違っていません。（他のクエリでも使っているがそちらは正常。）

976 ：へい：02/08/04 13:05

みつけた！
http://ja2kai.hoops.livedoor.com
にあった。