Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];
ВнизКолесо Найти похожие ветки
← →
Opera (2003-09-23 01:47) [0]if Key = VK_DOWN then
begin
if Form1.Panel1.Font.Color=clBlue then
begin
Deselect;
Form1.Panel2.Font.Color:=clBlue
exit;
if Form1.Panel2.Font.Color=clBlue then
begin
Deselect;
Form1.Panel3.Font.Color:=clBlue
exit;
А как сделать тоже самое, но чтобы не по нажатию а когда колесико мышки вниз крутиш?
← →
dataMaster (2003-09-23 03:15) [1]OnMouseWheelDown или OnMouseWheelUp
← →
dataMaster (2003-09-23 03:33) [2]Вот примерчик:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
P: array [1..3] of TPanel;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
k: byte;
begin
ClientWidth:=120;
ClientHeight:=170;
for k:=1 to 3 do
begin
P[k]:=TPanel.Create(Form1);
with P[k] do begin
Parent:=Form1;
Width:=100;
Height:=50;
Left:=10;
Top:=k*Height-40;
Caption:="Panel"+IntToStr(k);
end;
end;
P[1].Font.Color:=clRed;
P[2].Font.Color:=clBlue;
P[3].Font.Color:=clBlue;
end;
procedure TForm1.FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
MousePos: TPoint; var Handled: Boolean);
begin
if P[1].Font.Color=clRed then
begin
P[1].Font.Color:=clBlue;
P[2].Font.Color:=clRed;
Exit;
end;
if P[2].Font.Color=clRed then
begin
P[2].Font.Color:=clBlue;
P[3].Font.Color:=clRed;
Exit;
end;
if P[3].Font.Color=clRed then
begin
P[3].Font.Color:=clBlue;
P[1].Font.Color:=clRed;
end;
end;
end.
:-)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c