Текущий архив: 2003.02.03;
Скачать: CL | DM;

Вниз

Кнопки выньДовс98   Найти похожие ветки 

← →
Сутковой Вадим   (2002-11-17 17:25) [0]

Возможно ли изменить надписи на стандартных кнопках вин98 ? И как это зделать? Заранее сенкс.

---

← →
SCHMaster ©   (2002-11-20 03:00) [1]

Где то так:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var
str:String;

Wnd:HWND;

begin
Wnd:=FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil);
if ParamStr(1)<>"" then Str:=ParamStr(1) else
Str:="Привет";
SendMessage(Wnd,WM_SETTEXT, 0, Integer(Str));
SendMessage(Wnd,WM_CHAR, Ord(#13), 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Button1.handle, WM_SETFONT, Label1.Font.Handle,1);
SendMessage(FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil), WM_SETFONT, Label1.Font.Handle, Integer(True));
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SetWindowPos(Button1.handle,HWND_BOTTOM,2,2,20,20,SWP_NOMOVE);
SetWindowPos(FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil),HWND_BOTTOM,2,2,200,33,SWP_NOMOVE);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
str:String;
W, I:Integer;
Wnd:HWND;
Can:TCanvas;
begin
Wnd:=FindWindowEx(FindWindow("Shell_TrayWnd", nil), 0, "Button", nil);
W:=SendMessage(Wnd, WM_GETFONT, 0, 0);


SendMessage(Label1.Font.Handle, WM_SETFONT, Wnd, 1);
Label1.Caption:=IntToStr(W);

end;

end.

Под 98 не пробовал, но должно работать.

---

← →
Yegor Derevenets   (2002-11-20 15:18) [2]

Автор BazarBox должен знать.

---

← →
Skurihin Aleksey   (2002-11-20 19:48) [3]

На adept7.kiev.ua исходник windowsControllera валялся.
Там и не только это есть.
Сходи посмотри, правда там только pas но идея понятна

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.03;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c