Форум: "Система";
Текущий архив: 2003.02.03;
Скачать: [xml.tar.bz2];
ВнизКнопки выньДовс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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c