Вопрос # 3 058: …ксперты! У меня полностью прозрачная форма.Можно ли сделать так что б… (Общие вопросы по программированию)

Здравствуйте, уважаемые эксперты!
У меня полностью прозрачная форма.Можно ли сделать так что бы пользователь мог перетаскивать окно программы ,ну например за отображаемый элемент, цифры ,показывающие время и т д?И второй вопрос-можно ли сделать ,что бы пользователь мог менять цвет шрифта?

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Приложение:

unit Clock1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,DateUtils, ExtCtrls, Buttons, StdCtrls, ComCtrls,MPLayer;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
UpDown1: TUpDown;
UpDown2: TUpDown;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
MediaPlayer1: TMediaPlayer;
ComboBox1: TComboBox;
SpeedButton4: TSpeedButton;
Label9: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure UpDown1Click(Sender: TObject; Button: TUDBtnType);
procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure ComboBox1KeyPress(Sender: TObject; var Key: Char);
procedure SpeedButton4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Clock3;
{$R *.dfm}
var
Hour,Min,Sec : word;
Hour1,Min1 : word;
procedure TForm1.FormCreate(Sender: TObject);
begin
SpeedButton4.Hide;
Label9.Hide;
ComboBox1.Hide;
Label6.Hide;
Label7.Hide;
Label8.Hide;
UpDown1.Hide;
UpDown2.Hide;
SpeedButton3.Hide;
Hour := HourOf(Now);
Min := MinuteOf(Now);
Sec := SecondOf(Now);
Form1.Color := clWhite;
Form1.TransparentColorValue := clWhite;
Form1.TransparentColor := True;
Form1.BorderStyle := bsNone;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Hour,Min,Sec : word;
n : string;
Label
bub;
begin
Timer1.Interval := 500;
Hour := HourOf(Now);
Min := MinuteOf(Now);
Sec := SecondOf(Now);
if Label2.Visible
then Label2.Visible := False
else Label2.Visible := True;
if Label4.Visible
then Label4.Visible := False
else Label4.Visible := True;
if Hour < 10 then Label1.Caption := '0' + IntToStr(Hour)
else Label1.Caption := IntToStr(Hour);
if Min < 10 then Label3.Caption := '0' + IntToStr(Min)
else Label3.Caption := IntToStr(Min);
if Sec < 10 then Label5.Caption := '0' + IntToStr(Sec)
else Label5.Caption := IntToStr(Sec);
Hour1 := UpDown1.Position;
Min1 := UpDown2.Position;
if (Hour1 = HourOf(Now)) and (Min1 = MinuteOf(Now)) and (Sec < 1)
then Form2.Show;
if (Hour1 = HourOf(Now)) and (Min1 = MinuteOf(Now)) and (Sec < 1)
then
begin
begin
case ComboBox1.ItemIndex of
end;
if Length(ComboBox1.Text) = 0
then goto bub
else
MediaPlayer1.FileName := n;
MediaPlayer1.Open;
MediaPlayer1.Play;
bub :
end;
if Sec = 25
then Form2.Hide;
if Sec = 25
then
begin
MediaPlayer1.Close;
end;
end;
end;
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
if Updown1.Position < 10
then Label6.Caption := '0' + IntToStr(UpDown1.Position)
else Label6.Caption := IntToStr(UpDown1.Position);
end;
procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
begin
if Updown2.Position < 10
then Label8.Caption := '0' + IntToStr(UpDown2.Position)
else Label8.Caption := IntToStr(UpDown2.Position);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
SpeedButton4.Show;
Label9.Show;
Label6.Show;
Label7.Show;
Label8.Show;
UpDown1.Show;
UpDown2.Show;
SpeedButton3.Show;
ComboBox1.Show;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
SpeedButton4.Hide;
Label9.Hide;
Label6.Hide;
Label7.Hide;
Label8.Hide;
UpDown1.Hide;
UpDown2.Hide;
SpeedButton3.Hide;
SpeedButton3.Hide;
ComboBox1.Hide;
if Length(ComboBox1.Text) = 0
then
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
Key := Chr(0);
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
var
m : string;
Label
bye;
Label
bob;
begin
begin
case ComboBox1.ItemIndex of
end;
if Length(ComboBox1.Text) = 0
then goto bye
else
MediaPlayer1.FileName := m;
MediaPlayer1.Open;
MediaPlayer1.Play;
goto bob;
bye :
bob :
end;
end;
end.

Создай единый обработчик OnMouseDown() для всех тех контролов на форме, за которые ты хочешь таскать форму мышью.

procedure TMainForm.ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button = mbLeft then begin ReleaseCapture(); Self.Perform(WM_SYSCOMMAND, $F012, 0); end; end;

Мини-форум вопроса

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 3 058

Мини-форум вопроса

Экспертная система Delphi.int.ru

Сообщество программистовОбщение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 3 058

Мини-форум вопроса

Сообщество программистов
Общение, помощь, обмен опытом