Всем здравствуйте!
Помогите выполнить практическую работу в Delphi 7.
Учусь на 1 курсе, еще не сильно разбираюсь.
Нужно написать простую "программку".
Допустим, на форме расположены квадрат и круг.
При нажатии на круг - появляется надпись "привет".
При нажании на квадрат - надпись "привет убирается" и появляется другая надпись. (ну это как пример задания)
Что-то такое:
Код:
Unit txtxx;
interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, StdCtrls, ExtCtrls;
type
TForml = class (TForm) Shapel: TShape;
Shape2: TShape;
Labell: TLabel;
Label2: TLabel;
procedure ShapelMouseDown (Sender: TObject);
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer;
procedure Shape2MouseDown (Sender: TObject);
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer;
private
{Private declarations}
public
{Public declarations)
Forml: TForml;
implementation {$ R * .DFM}
procedure TForml.ShapelMouseDown (Sender: TObject);
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer;
(метод обработки события OnMouseDown для компоненты Shapel} begin
labell.caption = 'Ky-Ky'; {изменение подписей обеих отметок}
label2.caption: = '';
end;
procedure TForml.Shape2MouseDown (Sender: TObject);
Button: TMouseButton;
Shift: TShiftState;
X, Y: Integer;
{метод обработки события OnMouseDown для компоненты Shape2)
begin
label2.caption = 'Ky-Ky-pi-Ky'; (изменение подписей обеих отметок}
labell.caption: = '';
end;
end.
Админ: учимся пользоваться тегами по назначению!
Кто может помочь, ответьте, как с вами связаться.
Либо свяжитесь со мной:
Skype: savitskiykb
ICQ: 644350709
VK:
https://vk.com/savitskiykb
savitskiykb@gmail.com