Создание проекта с визуальными компонентами

@f0rz · Регистрация: 28.03.2016

Студворк — интернет-сервис помощи студентам

написать программу которая через определенный промежуток времени выходит на экран какой-либо визуальный компонент затем она исчезает и появляется в другом месте окна

@Пытливый · 27.05.2016, 13:03

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
unit Unit7;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm7 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    Control: TWinControl;
  public
    { Public declarations }
  end;
 
var
  Form7: TForm7;
 
implementation
 
{$R *.dfm}
 
procedure TForm7.FormCreate(Sender: TObject);
begin
 Randomize;
 case Random(3)
 of 0: begin
       Control := TButton.Create(Form7);
       TButton(Control).Caption := 'Button';
       end;
    1: begin
       Control := TMemo.Create(Form7);
       TMemo(Control).Text := 'Memo';
       end;
    2: begin
       Control := TCheckBox.Create(Form7);
       TCheckBox(Control).Caption := 'CheckBox';
       end;
 end;
 Control.Parent := Form7;
end;
 
procedure TForm7.Timer1Timer(Sender: TObject);
var P: TPoint;
begin
 P.X := Random(Form7.Width - Control.Width);
 P.Y := Random(Form7.Height - Control.Height);
 Control.Left := P.X;
 Control.Top := P.Y;
end;
 
end.

@BOGG ART · 27.05.2016, 13:10

Не по теме:

Только вмето Form7 надо Self, а вместо TForm.Width|Height надо ClientWidth|ClientHeight.

@Пытливый · 27.05.2016, 13:14

Как-бы амбивалентно, хоть геокоординаты задавайте.

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@f0rz 0 / 0 / 0 Регистрация: 28.03.2016 Сообщений: 23

	Создание проекта с визуальными компонентами 27.05.2016, 11:39. Показов 644. Ответов 3 Метки нет (Все метки) написать программу которая через определенный промежуток времени выходит на экран какой-либо визуальный компонент затем она исчезает и появляется в другом месте окна 0

@BOGG ART
	27.05.2016, 13:10
	Не по теме: Только вмето Form7 надо Self, а вместо TForm.Width\|Height надо ClientWidth\|ClientHeight. 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	27.05.2016, 13:14
	Как-бы амбивалентно, хоть геокоординаты задавайте. 0