Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

TImage   Найти похожие ветки 

 
AlexCAHEK ©   (2010-04-02 13:13) [0]

Объясните недоучу! Как перемещать окно, если оно вырезано по картинке и не имеет формы? Тогда как TImage1.Visible := false; окно передвигается но ничего нет кроме кнопок,а когда true ничё не шевелится


 
И. Павел ©   (2010-04-02 13:17) [1]

Преформулируйте, пожалуйста, вопрос. А то я ничего не понял :) Может быть на форме нет заголовка, и ее нужно перетаскивать? Если да, то так:


> procedure TForm1.FormMouseDown(Sender: TObject; Button:
> TMouseButton;
>   Shift: TShiftState; X, Y: Integer);
> const
>   SC_DragMove = $F012;
> begin
>   ReleaseCapture;
>   self.Perform(WM_SysCommand, SC_DragMove, 0);
> end;


 
И. Павел ©   (2010-04-02 13:19) [2]

Преформулируйте -> переформулируйте


 
AlexCAHEK ©   (2010-04-02 14:39) [3]

Строки заголовка нет, только клиентская часть. Я указал переменную dragging,
создал обработчик события OnMouseDown и Move и Up. Вроде все как нужно. Но окно все равно не перемещается, только когда картинка скрыта. Надеюсь на вашу помощь


 
Jeer ©   (2010-04-02 14:42) [4]


> Надеюсь на вашу помощь


А можно вежливо нахамить ? :)


 
И. Павел ©   (2010-04-02 14:44) [5]

> [3] AlexCAHEK ©

Назначьте указанный мной в [1] обработчики на события OnMouseDown для формы и для Image. Так должно перетаскиваться.


 
AlexCAHEK ©   (2010-04-02 14:45) [6]

Можно


 
AlexCAHEK ©   (2010-04-02 14:50) [7]

Ок! Недогадался! Еще вопрос. Как можно отключить определенную клавишу, на время работы проги, например vk_f4?


 
И. Павел ©   (2010-04-02 14:54) [8]

Перехватывайте ее в ApplicationEbents и обнуляйте.


 
Омлет ©   (2010-04-02 14:54) [9]

type
 TForm1 = class(TForm)
   procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
   procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
 private
   fDown: Boolean;
   fPos: TPoint;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then
 begin
   fDown := True;
   fPos := Point(x, y);
 end;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
 if fDown then
 begin
   SetBounds(Left - (fPos.x - x), Top - (fPos.y - y), Width, Height);
//    fPos := Point(x, y);
 end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then
   fDown := False;
end;

</


 
И. Павел ©   (2010-04-02 14:54) [10]

Ebents -> Events


 
Сергей М. ©   (2010-04-02 14:55) [11]

> Как можно отключить определенную клавишу

Чем она тебе помешала ?


 
AlexCAHEK ©   (2010-04-02 15:09) [12]

Огромное спасибо!!! Пишу программу - прикол, с отключением клавиш. Заодно <Alt>+<f4> несработает. В процессах и на панели её тож естественно нет.


 
Jeer ©   (2010-04-02 15:10) [13]


> AlexCAHEK ©   (02.04.10 14:45) [6]
>
> Можно


Спасибо, постараюсь вежливо:

private
{ Private declarations }
procedure WMNCHitTest (var M:TWMNCHitTest);message wm_NCHitTest;

//***

implementation
{$R *.DFM}

procedure TForm1.WMNCHitTest (var M:TWMNCHitTest);
begin
 inherited;
 if M.Result=htClient then M.Result:=htCaption;
end;


 
Сергей М. ©   (2010-04-02 15:11) [14]


> Пишу программу - прикол


Опоздал ты с "приколами)
день Дурака уже прошел)


 
oldman ©   (2010-04-02 15:12) [15]


> AlexCAHEK ©   (02.04.10 15:09) [12]


Когда бить придут - вот будет прикол!
:)))


 
Anatoly Podgoretsky ©   (2010-04-02 15:16) [16]

> Jeer  (02.04.2010 14:42:04)  [4]

А можно нахамить так, чтоб субъект не догадался?


 
Anatoly Podgoretsky ©   (2010-04-02 15:17) [17]

> AlexCAHEK  (02.04.2010 14:50:07)  [7]

А как она подключена, вот так можно и отключить.


 
Anatoly Podgoretsky ©   (2010-04-02 15:18) [18]

> AlexCAHEK  (02.04.2010 15:09:12)  [12]

За приколы бьют по морде и здесь это тоже не приветсвуется


 
AlexCAHEK ©   (2010-04-02 15:19) [19]

Блин, респект вам парни! Дайте совет неопытному!



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

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

Наверх




Память: 0.51 MB
Время: 0.05 c
2-1269104638
Barbariska
2010-03-20 20:03
2010.08.27
Числа в памяти


15-1265664604
Юрий
2010-02-09 00:30
2010.08.27
С днем рождения ! 9 февраля 2010 вторник


15-1267771411
oxffff
2010-03-05 09:43
2010.08.27
Буду в Москве с 22.03 по 26.03. Был бы рад встрече.


6-1219075279
ocean
2008-08-18 20:01
2010.08.27
IdSmtp headers


4-1237870940
Дмитрий
2009-03-24 08:02
2010.08.27
Cтиль flat для listbox