dziwne mam delphi 7
wzoce kodzik progsa to moze cos rozwiarze
unit Opcje1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Menus;
type
TOpcje = class(TForm)
MainMenu1: TMainMenu;
Plik1: TMenuItem;
grupaUH: TGroupBox;
grupaSD: TGroupBox;
wlaczone1: TCheckBox;
petla: TEdit;
speed: TLabel;
GrypaRodzaj: TGroupBox;
typ1: TRadioButton;
typ2: TRadioButton;
pozX: TLabel;
pozY: TLabel;
EditPozX: TEdit;
EditPozY: TEdit;
wlaczone2: TCheckBox;
pozX1: TLabel;
pozY1: TLabel;
EditPozX1: TEdit;
EditPozY1: TEdit;
Zakoncz1: TMenuItem;
speed1: TLabel;
petla1: TEdit;
pobieranie: TButton;
pobieranie1: TButton;
Exuast: TButton;
grupaHMM: TGroupBox;
speed2: TLabel;
pozX2: TLabel;
pozY2: TLabel;
petla2: TEdit;
EditPozX2: TEdit;
EditPozY2: TEdit;
pobieranie2: TButton;
grupaGFB: TGroupBox;
speed3: TLabel;
pozX3: TLabel;
pozY3: TLabel;
petla3: TEdit;
EditPozX3: TEdit;
EditPozY3: TEdit;
pobieranie3: TButton;
ZamknijOpcje1: TButton;
wlaczone3: TCheckBox;
wlaczone4: TCheckBox;
CharPoz1: TButton;
procedure Zakoncz1Click(Sender: TObject);
procedure ZamknijOpcje1Click(Sender: TObject);
procedure pobieranieClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ExuastClick(Sender: TObject);
procedure CharPoz1Click(Sender: TObject);
function MouseHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Opcje: TOpcje;
HintHook: HHOOK;
implementation
uses exausted, charpos;
{$R *.dfm}
procedure TOpcje.Zakoncz1Click(Sender: TObject);
begin
Opcje.Close;
end;
procedure TOpcje.ZamknijOpcje1Click(Sender: TObject);
begin
Opcje.Close
end;
procedure TOpcje.pobieranieClick(Sender: TObject);
begin
//uruchamiasz nasłuch na nacisniecie klawisza myszy
HintHook:=SetWindowsHookEx(WH_MOUSE, @MouseHook, hInstance, 0);
end;
procedure TOpcje.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnHookWindowsHookEx(HintHook);
end;
function TOpcje.MouseHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
var
MSg: TEventMsg;
p: TPoint;
begin
Msg:=PEventMsg(lParam)^;
if Msg.message=WM_LBUTTONDOWN then
begin
GetCursorPos(P);
EditPozX.Text := IntToStr(pozycja.X);
EditPozY.Text := IntToStr(pozycja.Y);
end;
end;
procedure TOpcje.ExuastClick(Sender: TObject);
begin
if typ1.Checked = True then
begin
MaleOkno1.Wartosc1.Text := '0';
end
else if typ2.Checked = True then
begin
MaleOkno1.Wartosc1.Text := '1*1200';
end;
//wyswietlenie
MaleOkno1.Show;
end;
procedure TOpcje.CharPoz1Click(Sender: TObject);
begin
CharPoz.Show
end;
end.
to moze cos rozjani