Delphiめも
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#contents
*ヘルプファイルを作成する [#o7bfae19]
Microsoftが提唱した規格でHTML Helpというのがあるそうです~
http://www.keiyu.com/
*URLやローカルhtmlをIEで開く [#j07659b9]
usesにShellAPIを追加
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'OPEN', 'http://yassu.no-ip.com/'...
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,'OPEN', PChar(ExtractFilePath(A...
end;
*Delphi7でQuickReportを使う [#vb48df1a]
「コンポーネント」→「パッケージのインストール」→「追加」
C:\Program Files\Borland\Delphi7\Bin\dclqrt70.bpl を選択
*アプリケーションの二重起動を防止する [#y265de53]
usesにWindowsを追加
var
HWND, HAPP: THandle;
begin
Application.Initialize;
// メインウインドウを探す
HWND := FindWindow(nil, 'アプリケーション');
if (HWND <> 0) then
begin
// メインウインドウがある場合、アプリケーションのハ...
HAPP := GetWindow(HWND, GW_OWNER);
if (IsIconic(HAPP)) then
// アイコン化されていた場合、元のサイズにする
OpenIcon(HAPP);
// 前面に移動
SetForegroundWindow(HAPP);
end
else
begin
Application.Title := 'アプリケーション';
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.
*QuickReportで「レポートの保存」「レポート読み込み」ボタ...
C:\Program Files\Borland\Delphi7\Lib\Qrprev.dfm を以下変...
object SaveReport: TToolButton
Visible = false
object LoadReport: TToolButton
Visible = false
object Separator4: TToolButton
Visible = false
ソースを変更しないで実現するには → http://www.users.gr.jp...
*Window95 QuickReportで「Image.Bitmapの読み込みエラー:ス...
Comctl32.dllのバージョンが古いとダメみたい~
具体的には4.70だとダメだった
InternetExplorer5.01ServicePack2以上をインストールすると...
*SQL文の実行 [#g6900e34]
uses DBTables;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TQuery.Create(Self) do
begin
DatabaseName := dmData.Table1.DatabaseName;
Close;
SQL.Clear;
SQL.Add('SELECT Max(ID) FROM monitor.DB');
Open;
Button1.Caption := Fields[0].AsString;
Free;
end;
end;
*Paradoxの型 [#e5ed1ae2]
|~記号|~項目|~項目幅|
|A|文字型|1-255|
|N|実数型|10-308 - 10308|
|$|金額型|小数点以下6桁まで|
|S|整数型|-32767 - 32767|
|I|倍長整数型|-2147483647 - 2147483647|
|#|BCD型|0-32|
|D|日付型|紀元前9999年1月1日 - 西暦9999年12月31日|
|T|時間型|午前0時からのミリ秒単位の時間|
|@|日付時間型||
|M|メモ型|1-240|
|F|書式付きメモ型|0-240|
|G|グラフィック型|0-240|
|O|OLE型|0-240|
|L|論理型||
|+|カウンタ型||
|B|バイナリ型|0-240|
|Y|バイト型|1-255|
*Paradoxを使ったソフトをWindowsXPで実行すると「ネットワー...
権限の問題で起こるのでソフトを使用するユーザーをAdministr...
終了行:
#contents
*ヘルプファイルを作成する [#o7bfae19]
Microsoftが提唱した規格でHTML Helpというのがあるそうです~
http://www.keiyu.com/
*URLやローカルhtmlをIEで開く [#j07659b9]
usesにShellAPIを追加
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'OPEN', 'http://yassu.no-ip.com/'...
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,'OPEN', PChar(ExtractFilePath(A...
end;
*Delphi7でQuickReportを使う [#vb48df1a]
「コンポーネント」→「パッケージのインストール」→「追加」
C:\Program Files\Borland\Delphi7\Bin\dclqrt70.bpl を選択
*アプリケーションの二重起動を防止する [#y265de53]
usesにWindowsを追加
var
HWND, HAPP: THandle;
begin
Application.Initialize;
// メインウインドウを探す
HWND := FindWindow(nil, 'アプリケーション');
if (HWND <> 0) then
begin
// メインウインドウがある場合、アプリケーションのハ...
HAPP := GetWindow(HWND, GW_OWNER);
if (IsIconic(HAPP)) then
// アイコン化されていた場合、元のサイズにする
OpenIcon(HAPP);
// 前面に移動
SetForegroundWindow(HAPP);
end
else
begin
Application.Title := 'アプリケーション';
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.
*QuickReportで「レポートの保存」「レポート読み込み」ボタ...
C:\Program Files\Borland\Delphi7\Lib\Qrprev.dfm を以下変...
object SaveReport: TToolButton
Visible = false
object LoadReport: TToolButton
Visible = false
object Separator4: TToolButton
Visible = false
ソースを変更しないで実現するには → http://www.users.gr.jp...
*Window95 QuickReportで「Image.Bitmapの読み込みエラー:ス...
Comctl32.dllのバージョンが古いとダメみたい~
具体的には4.70だとダメだった
InternetExplorer5.01ServicePack2以上をインストールすると...
*SQL文の実行 [#g6900e34]
uses DBTables;
procedure TForm1.Button1Click(Sender: TObject);
begin
with TQuery.Create(Self) do
begin
DatabaseName := dmData.Table1.DatabaseName;
Close;
SQL.Clear;
SQL.Add('SELECT Max(ID) FROM monitor.DB');
Open;
Button1.Caption := Fields[0].AsString;
Free;
end;
end;
*Paradoxの型 [#e5ed1ae2]
|~記号|~項目|~項目幅|
|A|文字型|1-255|
|N|実数型|10-308 - 10308|
|$|金額型|小数点以下6桁まで|
|S|整数型|-32767 - 32767|
|I|倍長整数型|-2147483647 - 2147483647|
|#|BCD型|0-32|
|D|日付型|紀元前9999年1月1日 - 西暦9999年12月31日|
|T|時間型|午前0時からのミリ秒単位の時間|
|@|日付時間型||
|M|メモ型|1-240|
|F|書式付きメモ型|0-240|
|G|グラフィック型|0-240|
|O|OLE型|0-240|
|L|論理型||
|+|カウンタ型||
|B|バイナリ型|0-240|
|Y|バイト型|1-255|
*Paradoxを使ったソフトをWindowsXPで実行すると「ネットワー...
権限の問題で起こるのでソフトを使用するユーザーをAdministr...
ページ名: