Отправляет email-рассылки с помощью сервиса Sendsay

ЧаВО от клуба программистов Весельчак У

Подписаться Бесплатная новостная рассылка Подписчиков 94 RSS
  Февраль 2004   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://club.shelek.com/faq/
Открыта: 30-01-2004

Автор
Sel

Статистика

94 подписчиков
0 за неделю
←   Все выпуски   →

ЧаВО от клуба программистов Весельчак У


Информационный Канал Subscribe.Ru
"ЧАВО от клуба программистов ВесельчакУ"
>>
-Новое из раздела Новичкам

Обновлений нет
>>
-Новое из раздела NET

Как к Item'aм в ComboBox'e и ListBox'e прикрепить дополнительные данные, а не только текст?

 Нужно создать структуру/класс с нужными свойтсвами/методами и переопределить метод ToString(), возвращаемый им текст и будет отображаться в списке:


class Book
{
public Book(decimal price, string author, string name)
{
this.price = price;
this.author = author;
this.name = name;
}
decimal price;
string author;
string name;
public decimal Price
{
get
{
return price;
}
}
//.
public override string ToString()
{
return name;
}
}


Последние обновление: 2004-01-28 12:36
Опубликовал: Dimyan
System.Diagnostics.Process proc = new System.Diagnostics.Process();
proc.StartInfo.FileName = fileName;
string args = @"/l:File /f:Van ";
proc.StartInfo.Arguments = args;
proc.Start();

где:
> fileName - полный путь к файлу с указанием имени файла и расширения.
> args - список аргументов которые вы хотите передать файлу (если необходимо)
P.S. Не забудте что путь, например C:\Temp\MyProg, указывается как C:\\Temp\\MyProg

Последние обновление: 2004-01-28 13:06
Опубликовал: Dimyan
static void Main()
{
//Ensuring an application is single instance
if(System.Diagnostics.Process.GetProcessesByName(Application.ProductName).Length > 1)
{
MessageBox.Show("Найдена еще одна активная копия программы. Приложение не будет запущенно" ,"Внимание!!!",
MessageBoxButtons.OK, MessageBoxIcon.Stop);
return;
}
else
{
Application.Run(new Form1());
}
}


Последние обновление: 2004-01-30 07:43
Опубликовал: Dimyan
>>
-Новое из раздела C/C++
Обновлений нет
>>
- Новое из раздела Delphi

Как изменить внешний вид хинтов (всплывающих подсказок)?

1. Создаем свой класс - потомок от THintWindow

type
TCustomHint = class (THintWindow)
public
constructor Create(AOwner: TComponent); override;
end;

Пpимечание 1. Этот способ не позволит изменить цвет шpифта - для этого
пpидется пеpекpывать метод Paint;

Пpимечание 2. Если пеpекpыть CreateParams, то можно, напpимеp, наpисовать
Hint в фоpме облачка.

Пpимечание 3. Для изменения цвета фона F1 TApplication.OnShowHint, HintInfo.

2. Меняем фонт:

constructor TCustomHint.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
with Canvas.Font do // Именно так, а не пpосто Font!
begin
Name := Times New Roman Cyr;
Style := [fsBold, fsItalic];
Size := 40;
end;
end;

3. Устанавливаем новый хинт

procedure TForm1.FormCreate(Sender: TObject); // Это может быть любой
begin // обpаботчик
HintWindowClass := TMyHint; // Устанавливаем глобальную пеpеменную
Application.ShowHint := false; // Application.FHintWindow.Free
Application.ShowHint := true; // Application.FHintWindow.Create
end;

Литеpатуpа:
1. SourceVCLForms.pas (TApplication).
2. SourceVCLControls.pas (THintWindow).
3. Delphi Help (OnShowHint, THintInfo).

Последние обновление: 2004-01-25 20:00
Опубликовал: Александр

Как перевести визуальный компонент, такой, как TPanel,
в состояние перемещения (взять и перенести)?


Пример:
{ В случае Panel1:TPanel - обработчик события OnMouseDown }

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012; { a magic number }
begin
ReleaseCapture;
panel1.perform(WM_SysCommand, SC_DragMove, 0);
end;

Последние обновление: 2004-01-25 20:00
Опубликовал: Александр

Как послать самостийное сообщение всем главным окнам в Windows?
Пример:

Var
FM_FINDPHOTO: Integer;

// Для использовать hwnd_Broadcast нужно сперва зарегистрировать уникальное
// сообщение

Initialization
FM_FindPhoto:=RegisterWindowMessage(MyMessageToAll);

// Чтобы поймать это сообщение в другом приложении (приемнике) нужно перекрыть
DefaultHandler
procedure TForm1.DefaultHandler(var Message);
begin
with TMessage(Message) do
begin
if Msg = Fm_FindPhoto then MyHandler(WPARAM,LPARAM) else
Inherited DefaultHandler(Message);
end;
end;

// А тепрь можно
SendMessage(HWND_BROADCAST,FM_FINDPHOTO,0,0);

Кстати, для посылки сообщения дочерним контролам некоего контрола можно
использовать метод Broadcast.

Последние обновление: 2004-01-25 20:00
Опубликовал: Александр
>>
-Новое из раздела Visual Basic

Есть ли такая функция, которая ищет по маске? Например надо найти в папке файлы *.exe

Функция называется Dir.

strTemp=dir("c:\windows\*.exe")
lstPrograms.clear
do while strtemp<>""
lstPrograms.additem strtemp
strtemp=dir
loop

Последние обновление: 2004-01-31 13:54
Опубликовал: из архива

Не подскажете, как превратить обычный Label в ссылку типа ? Чтобы запускался почтовик.


------Фрагмент из кода GoldenBackUp--------
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As
Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub mnuInfo_Click()
Call ShellExecute(Me.hwnd, "Open", "mailto:info.gbu@mail.dsip.net, "", App.Path, 1)
End Sub
-----/Фрагмент из кода GoldenBackUp---------

Последние обновление: 2004-01-31 13:57
Опубликовал: из архива

Как в MDI-форме кодом переключиться на следующее окно?


Все формы помещаются в коллекцию по порядку создания.
От этого и пляши. Например, создай Public переменную, храни в ней номер активной формы, и пиши:

Forms(iActiveForm+1).SetFocus.
If iActiveForm=Forms.Count Then
iActiveForm=1 ' первая будет MDI-форма, если она у тебя стартовая.
Else
iActiveForm=iActiveForm+1
End If

А если в проекте помимо MDIChild форм открываются обычные формы, то можно еще добавить проверку, типа:

IF Forms(iActiveForm+1).mdichild then
'Переходим на след. child-форму
…
END IF

Последние обновление: 2004-01-31 15:15
Опубликовал: из архива
>>
-Новое из раздела ОС - Windows
>>
- Новое из раздела WEB

Обновлений нет

>>
-Новое из раздела Базы данных 
Обновлений нет
>>
-Новое из раздела Разное
Обновлений нет

 

http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное